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Preface 



Certain knowledge is a prerequisite for the full utiliza- 
tion of this manual. The reader should have a basic 

ULinjwiocigo UL uic (v/au rAi- language, r aiiiiiicUiLy wiui 

the information contained in the following manuals is 
necessary to understand the material contained in this 
manual: 

IBM 7090/7094 Operating Systems, Basic Monitor 
(IBSYS), Form C28-6248. 

IBM 709/7090 Programming Systems: FORTRAN As- 
sembly Program (FAP), Form C28-6235. 
IBM 7090 Data Processing System, Form A22-6528. 



Copies of this and other IBM publications can be obtained through IBM Branch Offices. 
IBM Corporation, Program Analysis, Dept. D58, P.O. Box 390, Poughkeepsie, N. Y. 
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Basic Monitor Supervisor — IBSUP 



iBSYS is a basic supervisory program used to coordinate 
a sequence of jobs which might involve distinct and 
independent operating systems. This coordination is 
achieved through the use of a common input-output 
trap supervisor (ioex), and a series of Unit Control 
Blocks cucb's) which contain the statistics and control 
information for all the i/o units in use by the system. 
IBSUP is that portion of the Basic Monitor which is in 
control on initial loading, and between each system 
that is run. ibsup consists of a group of small routines, 
each performing one specific function as directed by 
one control card that has been read in. Chart aa shows 
the overall flow within ibsup. Unless a system stop or a 
transfer to another system is desired, control returns 
to read in another card and perform the function re- 
quested by this card. 

The control cards are divided into four categories: 

1. Operational: sexecute, sibsys, spause, scards, 
STAPE, srestore, and $stop. 

2. Unit Assignment, Physical Attachment: sattach, 

sdetach. 

Logical Assignment: sas, 

srelease, and sswitch. 



3. Tape Manipulation: sendfile, srewind, and 

SREMOVE. 

4. Miscellaneous: sdate, s*, sunits, sunlist, slist, 
siBEDT, and SID. 

Operational control cards perform functions concern- 
ing the overall operation of the ibsys system while 
IBSUP is in control. They indicate the location of the 
input control cards, provide a temporary or permanent 
stop, and cause restoration of the ibsys system or read- 
in of another system. 

Unit assignment control cards indicate which units 
are physically available, and which logical function 
is to be handled by a particular physical unit. 

The tape manipulation control cards perform non- 
data select operations on logical units, and maintain 
the proper tape position indicators in the individual 
UCB for the unit receiving the operation. 

The miscellaneous control cards perform a Variety 
of accounting type functions, and can call in an editor 
to perform required system tape maintenance. 

For a detailed description of the exact function of 
each card, refer to the IBM Reference Manual, IBM 
7090/7094 Operating Systems, Basic Monitor (IBSYS), 
Form C28-6248. 
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Trap Supervisor — lOEX 



The lOEX portion of the Basic Monitor, shown on 
Charts ab and ac, consists o£ a trap supervisor for data 
channel operations, and a series of subroutines to per- 
form specific functions that might be required by a 
user. The subroutines initiate or give priority to move- 
ment of data, perform non-data select operations, con- 
vert data from one form to another, print or punch 
data on-line, and provide temporary or permanent 
halts to the program. The trap supervisor processes all 
data channel traps received, and maintains operation 
on any channel as long as activity is requested for any 
unit on that channel. 

Communication between the user's program and 
the trap supervisor is through the use of Unit Control 
Blocks cucb'sj associated with each physical i/o unit 
in the system. The user indicates that an operation is 
requested for a unit by placing the address of a 
select routine in word 2 of the ucb. Later, in the sel- 
routine, the user will indicate to the trap supervisor 
that this operation is complete by clearing word 2 of 
the UCB. A complete description of each portion of the 
UCB with its associated meaning may be found in the 
IBM Reference Manual, IBM 7090/7094 Operating 
Systems, Basic Monitor (IBSYS), Form C28-6248. 

A user may initiate activity on a channel through 
the use of the (ACtiv subroutine. If the request does 
not call for priority (word 1 of the calling sequence 
has a prefix of pze) and the channel is already active, 
no action is necessary, and control returns immediately 
to the user's program. If the channel is dormant, how- 
ever, the user's select routine will be entered to acti- 
vate the channel before returning to the user's pro- 
gram. If the user requests priority by using a prefix 
of MZE in the first word of the calling sequence, there 
are two possible courses of action for ioex: (1) If the 
routine is entered at non-trap time, control remains in 
the routine, if necessary, until the desired select rou- 
tine has been entered. (2) If the routine is entered 
at trap time, the unit is given priority by placing the 



location of the proper ucb in the channel priority cell, 
and the return to the user's program is made imme- 
diately. 

If a user wishes to perform some non-data select 
operation on a unit, he uses the (ndsel subroutine. 
This initiates the operation with priority through the 
use of the (activ subroutine with a prefix of mze in 
the calling sequence. 

The trap supervisor first saves all machine registers 
and machine status conditions so that they may be 
restored upon exit from the routine. The channel and 
unit causing the trap are determined, and the i/o opera- 
tion just performed is checked for errors. If errors are 
found, recovery is attempted in a manner prescribed 
by the type of error and assembly configuration. When 
a successful operation has been performed, the next 
waiting i/o operation will be initiated by the user's 
SEL+ routine. First, a test is made to determine if one 
should be started on the same unit that just completed 
the operation. If none is required on this unit, each 
UCB subsequent to this one is checked to determine if 
a request is waiting for that unit. This test is made 
through the entire block of ucb's for this channel by 
returning to the start of the ucb's for the channel and 
continuing the test. In this manner, any ucb prior to 
the one for the unit that has just completed an opera- 
tion will also be checked. The first ucb found with an 
address of a select routine in word 2 will have the re- 
quested operation started before leaving the trap super- 
visor. If no ucb requests an operation, the channel is 
allowed to become dormant, and will require an entry 
to (ACTIV to start it in operation again. Before returning 
to the point interrupted by the data channel trap, the 
machine registers and status conditions previously 
saved are restored. 

The remaining subroutines in ioex perform specific 
conversions of data, on-line printing or punching of 
Hollerith data, or machine pauses and stops. These 
are explained in detail, along with their usage, in the 
reference manual. Form C28-6248. 
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Morage map — iDdur, lucX, Duivir 



The storage map, Figure 1, shows the relative loca- 
tion of the various routines in the Basic Monitor and 
lOEX. The actual memory locations shown are not neces- 
sarily correct for all compiled systems. Minor changes 
in assembly parameters, which might be made by a 
specific user, may change many of these locations to 
a slight degree. The system origin sysorg and the 
following three tables within the nucleus should re- 
main the same: table of one word entries, systra to 
SYSTWT; system units table, syslbi to sysut4; and the 
lOEX communications table, cAcnv to (ibcdz. 

The first column shows the contents of storage re- 
quired for lOEx and the nucleus. This load is in storage 
during the execution of any system operating under 



the Basic Monitor system. The lower half of this col- 
umn is an exploded view of the contents of the nucleus, 
and shows the locations of its cells when the system is 
operating. The lines that extend to the right indicate 
the location of the nucleus in ibsup prior to being re- 
located to its operating position. 

The second column shows the contents of storage 
when the ibsup portion of Basic Monitor is in control. 
It also shows the original location of the nucleus as it 
is loaded from tape or disk. 

The third column shows the approximate limits of 
the system dump program, and the short block of loca- 
tions used to store the machine cells and status condi- 
tions prior to entry to the dump program. 
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Figure 1. Storage Map: IBSUP, lOEX, and Dump 
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Chart Descriptions — IBSUP 



Cold Start and Initialization Routine 

This routine is used for the initial loading, or when- 
ever a SRESTORE control card is read in, or a direct 
transfer is made to ibres (Block bdoi. ) Entry is at loca- 
tion COLD ( Block BAOi ) for an initial load or at drcold 
(Block BAOs) for restoration. 

On initial loading, a check is made for proper read- 
in of the program, preliminary housekeeping is per- 
formed, and the input switch is set for the proper 
input unit. This unit is made available if it is assigned 
and attached. The original value of syslbi and the 
disk limits are stored for future reference in cldlbi 
and CLDLBI + 1. 

For both initial loading and restoration, a set of 
Unit Control Blocks (ucb's) is generated. One block 
of four words is generated for each existing card ma- 
chine, tape drive, disk access arm, and Hypertape 
drive. 

The SYSUNi table is set up so that each entry will 
have as its address the address of the ucb for the unit 
assigned to that entry. 

After any use of the routine, the exit is to ibsys 
( Block Bcoi ) . 

Block BAOI: Location is cleared to provide a stop 
if a redundancy is encountered while reading in the 
Basic Monitor. Location cold is also cleared to indi- 
cate that cold start has been executed. 

Block BA02: All channels are tested for tape redun- 
dancies. If one is found, control transfers to location 
and halts. 

Blocks BA03 and BA04: If there are no redundancies, 
the nucleus is moved from the temporary area where 
it was initially loaded to the normal working area. 
The value in the entry keys is placed in location 
iBKEYS. All sense switches are tested and their settings 
SLored as indiViQuai bitS m lOcation ibssws. 

Block BAOS: Location sysorg + ioi is tested to deter- 
mine if the system is loaded on disk. If this location is 
zero, indicating that the system is not on disk, control 
transfers to rcold at Block bao7. 

Block BA06: If the system is on disk, syslbi and its 
associated disk limit location are set up for disk opera- 
tion. 

Block BA06.5: The value of syslbi and the disk limits 
(in case the original system was on disk) are stored 
for future reference in cldlbi and cldlbi + i. 



Block BA07: All ucb's are preset as follows: words 
1 and 3 are set to mze; words 2 and 4 are set to pze. 
If the routine is being used by ibres, word 3 is not 
altered, since this would destroy the file and record 
count. 

Block BAOS: ir2 is set to 3, which is the maximum 
number of card machine ucb's possible for one channel. 

Blocks BA09 and BAIO: The mq is loaded with a 
word containing indicators for all the card machines 
that are on all channels. The sense indicators are 
loaded from a table (aamt) that contains indicators 
for the attached units and their model types. 

Block BAll: The address for the first card machine 
on this channel is picked up for use in generating 
word 1 of the ucb. The sign of the mq is tested to de- 
termine if this card machine exists. If it does not exist, 
no UCB is generated for this unit. The sense indicators 
are tested to determine if the unit is attached. If it is 
not attached, a 1 bit is OR'ed to the accumulator in 
position 1 to indicate that the unit is not attached. 
The constructed Unit Control Word (ucw) is stored 
in word 1 of the ucb, and ie4 is stepped to point to 
the start of the next ucb. The unit address is stepped 
for the next card machine on this channel, and the 
model and attachment bits are shifted for the next 
test. IR2 is tested to determine if all card machines 
have been checked for this channel. If there are more 
to be checked, the entire operation within this block 
is repeated. 

Block BA12: When all ucb's for card machines have 
been generated for this channel, the model and attach- 
ment bits are stored temporarily to allow the tape, disk, 
ana Hypertape ucbs to ue generateu. 

Block BA13: The number of tapes on this channel 
is extracted from ntonch and placed in mi. The first 
tape unit address is piace^i m tue accumulator. iRl is 
tested for zero to determine if there are any tapes on 
this channel. If there are none, control transfers to 

GNXDl (Block BA14). 

Subroutine gnxun is used to generate word 1 for 
one ucb, and iri is again tested to determine if there 
are any more tape units remaining. If there are, control 
returns to subroutine gnxun and the process is re- 
peated until the ucb's for all existing tape units have 
been generated. 

Block BA14: Ihe sense indicators are loaded with 
the model type and attachment bits for disk units on 
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interface 1, access 0. iri is set to the number of mod- 
dules for interface 1, access 0. The address for the first 
module on interface 1, access is picked up from loca- 
tion DFWCl. 

iRi is tested to determine if there are any modules 
with this access arm. If there are none, control trans- 
fers to GNXD2 ( Block BAio ) . Subroutine gnsek is used 
to generate a ucb for disk. This routine generates in- 
formation for word 1 and word 3 of the ucb. 

iRi is tested to determine if there are any more 
modules on this access arm; if there are, control returns 
to subroutine gnsek. 

Block BA16: The method used in block bai4 is re- 
peated for interface 2, access 0. 

Block BA18: The sense indicators are loaded with 
the attachment bits for the Hypertape units on inter- 
face 1. IRI is loaded with the number of units on inter- 
face 1. The unit address for the first Hypertape unit 
on interface 1 is taken from location htwci. 

IRI is tested to determine if there are any Hyper- 
tape units on interface 1. If there are none, control 
exits immediately to gnxh2 (Block baiq). Subroutine 
GNXUN is used to generate word 1 for one ucb. iri is 
tested to determine if there are any more tape units 
on interface 1. If there are, control returns to sub- 
routine GNXUN. 

Block BA19: The method used in block bai8 is re- 
peated for the Hypertape units on interface 2. 

Block BA20: All unit addresses are incremented by 
lOOOs for the next channel. The starting location for 
the availability chain is incremented by 1. Location chn 
is incremented by 1 and its value left in iri. 

Block BA21: IRI is tested to determine if all channels 
have been processed. If they have not, control returns 
to iBCDE at block BA08. 

Block BA22: When all channels have been proc- 
essed, the set density instructions in ioex are changed 
to Nop's to prevent any density changes until the units 
are referred to by ibsys. 

Block BA23: ir2 is set to the complement of the lo- 
cation of the first unit in the system units table (sysund. 
The contents of ir2 become a pointer to this location. 
iri is set to the number of entries in the sysuni table. 

Block BA24: One entry in the sysuni table is picked 
up. It is presently in the form: pre chan,, unit. ir2 
is saved. 

Block BA25: Subroutine ibval is used to validate 
the channel and unit picked up in block ba24. On exit 
from ibval, the accumulator will be zero if the channel 
and unit are not valid. If they are valid, the accumu- 
lator will contain the location of the ucb for that unit. 
The sense indicators will contain the contents of the 
first word of that ucb, and ir2 will be set to the com- 



plement of the accumulator address to point to the 
ucb. 

Blocks BA26 and BA27: Position 1 of the sense indi- 
cators is tested to determine if the unit is attached. 
If it is, control transfers to iuef2 ( Block ba28 ) . If not, 
the accumulator is cleared. 

Block BA28: ir2 is restored and the address of the 
UCB is placed in the sysuni table. 

Blocks BA29 and BA30: Positions 5 and 12 of the 
sense indicators are tested to determine if the unit 
is disk. If it is, control transfers to Block ba31. If the 
unit is not disk, subroutine rsyur removes this unit 
from the availability chain. 

Block BA31: ir2 is restored to point to the present 
sysuni. iri is saved because it is used for subroutine 
Hnkage in Block ba32. 

Blocks BA32 and BA33: Subroutine initus is used 
to initialize system tape usage, mi is restored and ir2 
is decremented to point to the next entry in the sysuni 
table. 

Blocks BA34 and BBOl: iri is tested to determine if 
all units have been processed. If they have not all been 
processed, control returns to iuefi (Block ba24). When 
all units have been processed, the set density instruc- 
tions in ioex are restored. 

Blocks BB02 and BB03: The sysnam table is moved 
from the area where it was loaded to the normal work- 
ing area. All entries in this relocated table are re- 
arranged to fit the format that will be used by ibsys. 
(See Figure 2.) 

Block BB04: If cold-start has been entered from 
iBRES, control now returns to ibsys; if not, control 
passes to Block bbo5. 

Block BB05: The input switch is cleared to indicate 
that control is to come from cards. Sense switch 1 is 
tested; if it is down, control goes directly to Block 
BB06. If sense switch 1 is up, the input switch is set 
to indicate that the input is to come from tape, and 
control passes to Block bbo6. 

Block BB06: The designation for syscrd is picked up. 
The input switch is then tested to determine whether 
card or tape is being used for input. If card input is 



Original format as loaded with IBSUP: 
BCI 1, SYSNAM 
PZE TFILES, INDEX, NFILES 

Altered format after COLD START: 
BCI 1, SYSNAM 
PZE INDEX,, NFILES 



INDEX 
NFILES 



TFILES 



1 to 4 to indicate SYSLBl to SYSLB4 

Number of files IBSUP must skip before scatter loading the 

first record of the next file. 

Total number of files in the system named. 



Figure 2. Format of an Entry in the sysnam Table 
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indicated (input switch is zero), control goes imme- 
diately to Block BB07. If tape is indicated (input switch 
is not zero), the designation for sysini is picked up 
and control passes to Block bbot. 

Block BB07: The input switch is tested again; if tape 
is specified, control goes immediately to Block bbos. 
If card input is specified, the interrupt switch is set, and 
control passes to Block bbos. 

Block BBOS: The accumulator contains either the lo- 
cation of the ucB for syscrd or sysini, depending upon 
the setting of the input switch. This location is placed 
into IR2 in complement form to act as a pointer to the 
UCB. IR2 is tested to determine if there is any unit as- 
signed. If not, control transfers to Block bbio. If any 
unit is assigned, the sense indicators are loaded with 
the contents of the ucb and tested to determine if the 
unit is attached. If the unit is not attached, control 
transfers to Block bbio. 

Block BB09: Because the unit is assigned and at- 
tached, the sign position of the sense indicators is reset 
to to indicate that the unit is available. The sense 
indicators are replaced into word 1 of the ucb. The 
sign position of word 3 of the ucb is cleared to indi- 
cate a positive tape position, and control transfers to 

IBNJB (Block BUOl). 

Blocks BBIO to BB12: Sense switch 1 is tested to 
determine if the initial input was from cards or tape. 
If the switch is up, control transfers to ibnoin ( Block 
BC15 ) for an on-line print-out, indicating that no assign- 
ment was made and that clarification is needed in the 
card reader. If sense switch 1 is down, subroutine prout 
is used to print an on-line message to indicate a com- 
plete failure. Subroutine stop is used for a dead-stop 
halt from which there is no recovery. 

Blocks BB13 to BB17: This is one entry point to a 
closed subroutine to generate a ucb. The initial address 
for a disk unit is placed in the decrement of word 1 of 
the UCB. The access and module are extracted from this 
address and expanded to bcd characters in the form 
"oam". All BCD zeros are converted to octal 12. The bcd 
designation for "soam" is formed and stored in word 
3 of the ucb. The original address which was stored 
in word 1 is placed in the accumulator and control 
passes to gnxun (Block bbis) to complete the genera- 
tion of word 1. 

Blocks BB18 to BB23: This is the second entry point 
to this closed subroutine. It is used whenever a ucb 
for a Hypertape unit is required and only word 1 must 
be generated. ir2 is saved since it is also required for 
the subroutine exit during the operation of the sub- 
routine. The sense indicators at this time contain the 
model and attachment bits from aamt. If the unit is 
not attached, position 1 of the accumulator is set to 



1. If the unit type is model iv, position 2 of the accumu- 
lator is set to 1. 

The new word is stored in word 1 of the ucb. The 
tape address is placed into ir2 and incremented by 1. 
The sense indicators are tested again to determine if 

the availability chain= The model and attachment bits 
are shifted left one place for the next unit to be tested, 
and the next unit address is placed into the accumu- 
lator decrement. ir2 is restored and the subroutine 
exits to the calling program via 1, 2. 



IBSYS — $IBSYS Card Routine 

iBSYS receives control from a cold-start operation and at 
the completion of all major control card routines ex- 
cept iBSTP ($STOP) and ibxcc (sexecute). 

The system input unit is initialized and word 2 of 
the UCB is set to the proper select routine for either 
card or tape input, as required. Subroutine actv in 
lOEX is used to start an i/o operation for this unit and 
the program v/aits for a trap. When a trap occurs, the 
select routine posts this operation as complete and 
sets up the trap-wait location to exit to the proper 
control card interpretation routine. 

Blocks BCOl to BC04: m2 is set for card input, and 
the input switch is checked to determine which input 
unit is desired. If the input switch is set, ir2 is reset 
for tape input. ir4 is set to point to the ucb for the 
required input unit. 

Block BC05: ir4 is checked to determine if there is 
an input unit. If there is no input unit, control transfers 

to IBNOIN ( Block BC15 ) . 

Blocks BC06 to BC08: If there is an input unit, sub- 
routine iNiTUS is used to initialize system tape usage. 
Location ibwat is set to transfer to itself in order to wait 
for the trap, iri is set to point to word 1 of the ucb. 

Blocks BC09 to BC12: Word 2 of the ucb is tested 

rU- _„_« 4-^ J «j — ^.«;»,-, iC 4-V./> T.T-.i-l- ic /-l/^vTvioTif H- it- ic nni- 
lUl Z-CIU tU U.CtCl 1111110 ll Clio tiliil 10 »j.vyj. iiiivin.. J.J. it iL> ^xK^^, 

the program loops until it becomes dormant. When the 
unit becomes dormant, the decrement of word 2 of 
the ucb is set to the address of the taTie select routine 
(iBOF). The address of the unit is tested to determine 
if it is a card machine or a tape unit. If the address is 
for a card machine, the decrement of word 2 is reset 
to the address of the card select routine (ibon). If the 
unit was not a card machine, control transfers directly 

to ACTV. 

Blocks BC13 and BC14: Subroutine actv in ioex is 
used to start an i/o operation on this unit, and the 
program waits for a trap. 

Block BC15: This block is entered it no input unit 
had been specified. The mq is loaded with the bcd 
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designation for sysini. Control transfers to ifnds for 
a print-out which states that there has been no assign- 
ment made for this unit and clarification is needed in 
the card reader. 

Block BC16: ibon is the start of the select routine 
provided by ibsys for actv (in ioex) to use in read- 
ing control cards on-line. There is also a similar rou- 
tine, iBOF (Block BC25), provided for reading control 
cards from the off-line input tape. 

The sign of the accumulator is used to tell the rou- 
tine if it is being used to start an i/o operation ( sign 
is plus), or to post the operation as complete follow- 
ing a channel trap (sign is minus). The sign of the 
accumulator is tested; if it is plus, control transfers 

to IBSPL ( Block BC30 ) . 

Block BC17: This block is entered when posting 
completion of an i/o operation ( sign of accumulator is 
minus), xtrap (in ioex) will have set the necessary 
bits in the indicators for the test to be made by the 
select routine. Position 1 of the sense indicators is 
tested to determine if an end-of-file was encountered 
on the last operation. If there was no end-of-file, con- 
trol transfers to ibonc at Block bc23. 

Block BC18: Following an end-of-file indication, the 
interrupt switch crupsw) is tested. If rupsw is not zero, 
control transfers to Block bc24. 

Blocks BC19 to BC22: If the interrupt switch is zero, 
IR4 is saved and subroutine prout is used to print an 
on-line message that more control cards are needed. 
Subroutine pause is used to provide a pause to allow 
the operator to reply by adding the required cards 
before continuing. When start is depressed, ir4 is re- 
stored and the program returns to actv. 

Block BC23: This block is entered from Block bci7 
when there has been no end-of-file condition in the 
card reader. ir2 is set to ibcdin to indicate the routine 
required for interpreting the card information pre- 
viously read in. Control then transfers to Block bc28. 

Block BC24: This block is entered from Block bci8 if 
an end-of-file from the card reader occurs during an 
interrupt operation. ir2 is set to indicate that this rou- 
tine is to be used instead of one of the control card 
interpretation routines. ( ibret causes return of control 
to the current system when ibwat is next encoun- 
tered.) Control then transfers to Block bc28. 

Block BC25: This is the entry point to the select 
routine provided for actv to use in reading control 
cards from the off-line input tape. 

The sign of the accummulator is tested; if it is plus, 
control transfers to ibspl at Block bc30. 

Block BC26: When posting is required ( accumulator 
is minus), ir2 is set to ibtpin to indicate the routine 
required to interpret the card information read in 
from tape. 



Block BC27: Position 1 of the sense indicators is 
tested to determine if there had been an end-of-file 
while reading from tape. If there had been an end- 
of-file, control returns to actv. 

Blocks BC28 and 29: The contents of ir2 are stored 
in ibwat to set it for the proper exit after actv returns 
control to ibsys. Word 2 of the ucb is cleared, indi- 
cating that activity on this unit has ceased. Control is 
returned to actv. 

Blocks BC30 to BC33: Entry is made here from each 
select routine when the sign of the accumulator was 
plus, indicating that a posting operation was not de- 
sired. IR2 is set to -L(UCB) to act as a pointer to the 
UCB. The lORT command is picked up from word 2 of 
the UCB and placed in the rchx table for use in reading 
a card image. The unit address is picked up from 
word 1 of the ucb, shifted right 18 places, and stored 
in the rds instruction for use in selecting the i/o unit 
required. The rds instruction is executed; then the 
instruction in the rchx table is executed indirectly to 
start the i/o operation. Control is returned to actv. 



IBRES — $RESTORE Card Subroutine 

TERES receives control whenever a user desires to re- 
store the Basic Monitor to the configuration specified 
by the original assembly parameters. The user indi- 
cates this by placing a srestore card in his deck of 
monitor control cards. If the user had previously 
changed the unit assignment of one or more units, or 
detached one or more units, their original assignment 
would be restored when this card is processed. A 
frequent use of this procedure would be between 
stacked jobs on one input tape. After each job, control 
would be returned to ibsys through use of a sibsys card 
(or a similar card that is unique to the previous 
system being run), and this would be followed by a 
srestore card. The srestore card does not have to 
follow immediately, but should be placed before the 
next job that is to be run. This insures that any changes 
made in the system by one user will be nullified so 
that the next user will be working with the original 
system at the start of his job. The next user may then 
make changes or not, as he requires for his job. The 
nucleus is restored, and part of cold-start is used to 
reinitialize the system. 

Blocks BDOl to BD03: The original value of syslbi 
is picked up from cldlbi where it had been stored by 
the cold-start routine. Subroutine ibval is used to 
check the validity of this unit designation which was 
originally in the form pze chan„ unit. If the unit 
is valid, the location of the ucb for this unit is formed 
and this address is stored in syslbi. The original disk 
limits are picked up from cldlbi + i and restored to 
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the proper disk limit location in case syslbi was on 
disk. 

Blocks BD04 and BD05: ir2 is set to point to syslbi 
to be used by subroutine initus, which initializes the 
system tape (or disk). 

Blocks BD06 to BD08: sysldr is set to load in the 
system from the proper unit, and the exits from calibi 
are set to return to ibrsi instead of systra-2. Subrou- 
tine CALIBI is used to restore ibsup to core. It will use 
CALIB3 (SYSLDR) if the systcm is on disk, and the return 
to iBRSi, (Block BD09) will then be from sysldr in- 
stead of from CALIBI. 

Blocks BD09 to BDll: Location rcld + 3 is set to nop 
to prevent cold-start from destroying the tape position 
(word 3 of the ucb) during execution of that routine. 
The interrupt switch status is saved in its position in 
upper core along with the status of sense switch 1. The 
setting of the input switch is saved in location ibsinp 
(non-relocated . . . i.e., upper core). 

Blocks BD12 to BD14: The nucleus, except for the 
cold-start location is moved to lower core. Location 
COLD is cleared to indicate that cold start has been 
executed. Location rcoldx is set to transfer to ibsys at 
that point in the cold-start routine. Control transfers to 
drcold at Block baos. 



Control Card Interpretation Routines — 
IBCDIN/IBTPIN 

This routine is entered from ibwat after xtrap has 
posted completion of a control card read-in. It has two 
entry points, ibcdin and ibtpin. ibcdin is used if con- 
trol cards are being read on-line, and ibtpin is used if 
they are beino' read oflF-iine. The setting of the list 
switch determines if the cards will be printed on-line, 
unless the card is a $stop, spause, slist or is an illegal 
card. $STOP, $pause and $list cards are always printed. 
In the case of an illegal card, the card is always 
printed out along with a message indicating an illegal 
card; the list switch is then cleared, causing all future 
cards to be listed until a sunlist card is read. 

Comment cards ( $* ) are printed if the list switch is 
on ( zero ) and control returns to ibsys for another card. 
SID cards cause a transfer of control to the installation 
accounting routine, if there is one present, and eventual 
return to ibsys. All other legal card types cause a trans- 
fer to a specific routine as determined by a table look- 
up for the matching card type. A subsequent transfer, 
using the index value obtained from the table look-up, 
is executed to select the desired routine. 

Block BEOl: This is the entry when reading control 
cards on-line. Subroutine rhbcd is used to convert the 



12- bit Hollerith card ima<''e starting at ibmag into a 
6-bit BCD image starting at icard (also referred to as 
card). 

Block BE02: Location ibnct is tested for zero to 
check for a skip-job request. If ibnct is zero, control 
transfers to ibnj2 (Block buis) to allow processing of 
the control card. 

Block BE02.5: When a skip-job request is not indi- 
cated, the list switch is tested to determine if the con- 
trol cards are to be printed. This switch is normally 
clear (off) unless a sunlist card has been previously 
read in. If it is found to be set ( on ) , control transfers 
to Block BE04 to bypass the print subroutine. 

Block BE03: When the list switch is oflF, subroutine 
PROUT is used to print the control card on-line. 

Block BE04: The first word of the card image is 
picked up for use in comparing for a legal operation 
code. 

Block BEOS: ir4 is set to the length of the control 
operation table and a comparison is made with one 
entry in this table. If a comparison is found, ir4 is used 
as an index into a table of transfer instructions that will 
transfer control to the routine needed to process that 
control card. If no comparison is found, the next entry 
is checked by using ir4 to step through the table. If ir4 
goes to 1 and no comparison is found, the exit from 
this table look-up routine is to Block be06 for further 
checking of the card type. 

Block BE06: Initially the first two characters of the 
card are checked to determine if this is a comment 
card; i.e., $*. If the card is a comment card, control 
transfers to ibsys. Block bcoi. 

Block BE07: If the card type was not found in the 
control operation table and the card is not a comments 
card, the first three characters are tested to determine 
if a request is being made for the installation id routine, 
i.e., SID card. If the columns match, control transfers 

to SYSIDR, Block BEIO. 

Block BEOS: At this point, since there has been no 

parison with a comment card nor a system id request 
card, the card is deemed illegal. The list switch is 
checked to determine if the card has been printed. If it 
has been printed, control transfers to Block beii. 

Block BE09: Because the illegal card has not been 
printed, the list switch is turned oflF and control trans- 
fers to IBTPIN (Block BE02). This action allows the 
illegal card to be printed during another pass through 
the valid card search routine. This time when Block 
BE08 is encountered, control transfers to Block beii. 

Block BEIO: This routine is entered from Block beo7 
upon detection of a $id card, and is a calling sequence 
for the installation accounting routine. It consists of a 



Tsx SYSiDR, 4 followcd by PZE ICAED,, 12. The in- 
stallation accounting routine returns control to the 
location following the calling sequence routine via a 
TRA 2, 4. Control then returns to ibsys for another 
card. 

Blocks BEll and BE12: This routine is entered after 
detection and printout of an illegal card. Subroutine 
PROUT is used to print a message indicating an illegal 
card, and subroutine paws is used to provide an opera- 
tor pause before returning to ibsys. 



IBATC/IBDTC — $ArrACH/$DETACH Card 
Routines 

IBATC sets up a specific ucb to indicate that the unit is 
attached, and also inserts the unit into the availability 
chain for the proper channel unless the unit specified 
is a card machine. The routine checks for the validity 
of the unit specified, sets the proper model bit in the 
ucb, and stores the location of the ucb in latun. (latun 
is used by ibasc to assign this unit to a specific system 
unit. ) 

ibdtc sets up a specific ucb to indicate that the unit 
is not attached and removes the unit from the avail- 
ability chain of the associated channel. The routine 
checks for the validity of the unit specified, and re- 
moves any reference in the sysuni table that points to 
this unit. 

IBATC Routine 

Blocks BFOl to BF03: This is the entry point for the 
IBATC routine. Subroutine syucu converts the symbolic 
designation on the card to a channel-unit designation 
in the form: pze chan„ unit. An illegal designation 
causes the subroutine to return to i, 4 and control trans- 
fers to iBATi ( Block BJ12 ) . If the unit is legal, the sub- 
routine returns to 2, 4. Subroutine ibval is then used to 
check the validity of the unit, and form the location of 
the ucb for that unit in the accumulator. The contents 
of the accumulator (21-35) are stored in latun. If the 
subroutine finds that the unit is not valid, the return 
will be made with the accumulator cleared. 

Block BF04: The accumulator is checked to see if 
the unit is valid. If it is not valid, the accumulator is 
cleared and control transfers to ibati (Block bji2). 

Blocks BF05 to BF07: For a valid unit, the model 
type is extracted from location latun and placed in the 
sense indicators. The sign position of the sense indica- 
tors is set to 1 and position 1 is set to to indicate that 
the unit is attached and in the availability chain. The 
contents of the sense indicators are stored in ucb 
word 1. 

Block BF08: Positions 10 and 11 of the sense indi- 
cators are checked to determine if the unit is a card 



machine. If a card machine is indicated, control trans- 
fers to iBSYS to read in another control card. 

Blocks BF09 to BF12: The channel number is ex- 
tracted from the sense indicators, and placed in mi in 
complement form. Subroutine rsyur is used to remove 
the unit from the availability chain of the indicated 
channel if it is already entered in the chain. This is a 
precautionary measure to eliminate redundant refer- 
ences because the next step is to insert the unit at the 
beginning of the same chain. Control then transfers to 

IBSYS. 

IBDTC Routine 

Blocks BF13 and BF14: This is the entry point for 
the IBDTC routine. Subroutine syucu is used to convert 
the symbolic designation on the card to the channel- 
unit designation in the form: pze chan,, unit. An 
illegal designation causes the subroutine to return to 
1, 4 and control then transfers to ibati (Block bji2). A 
legal designation causes the subroutine to return to 2, 4. 
Subroutine ibval is used to check the validity of the 
unit specified and to form the location of the ucb for 
that unit in the accumulator. 

Block BF15: The accumulator is checked to deter- 
mine if the unit specified is valid. If the unit is not 
valid, control transfers to ibati (Block bj12). 

Blocks BF16 to BF19: For a valid unit the address of 
the ucb is stored in lucac to be used in removing any 
references to this unit from the sysuni table. The sign 
position and position 1 of the sense indicators are set 
to 1 to indicate that the unit is not available and not 
attached. The sense indicators are then stored in word 1 
of the ucb. Subroutine rysur is used to remove the unit 
from the availability chain of the proper channel. 

Blocks BF20 to BF24: ir4 is set to the number of 
entries in the sysuni table. Each entry of the sysuni 
table is compared to lucac to determine if there had 
been any reference to this unit. Any entry in the table 
that is equal to lucac is deleted. Control transfers to 
ibsys to read in another control card after all the entries 
in the system units table have been checked. 



IBXCC — $EXECUTE Card Routine 

iBxcc is the routine used to set up the proper system 
loader to read in a desired operating system and trans- 
fer control to it when it is read into storage. If syslbi 
is on tape, the tape is positioned properly and calib2 is 
given control to load the system. Control is transferred 
to it if it is found and loaded without error. If syslbi is 
on disk, the system name is compared with entries in 
the DSYSNM table. When an equal compare is found, the 
location of the system on disk is taken from this table. 
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Control is fiven to sysldr (Calib3) to read in the s^'^stem 
and transfer control to it if it is loaded without error. 

Blocks BGOl to BG03: ir2 is set to point to syslbi, and 
the cold-start switch ccold) is tested to determine if 
cold-start has been executed. If <x>ld is not zero, indi- 
cating that cold-start has not been executed, control 
transfers to Block bgo4. If cold is zero, subroutine 
iNiTUS is used to initialize system tape usage on syslbi 
before control is passed to Block bgo4. 

Blocks BG04 and BG05: ir3 is set to point to sysut4 
as an indication to subroutine initus, which is then 
used to initialize system tape usage for this tape. 

Block BG06: sysorg+ioi is tested to determine if 
syslbi is on disk. If disk operation is indicated, control 
transfers to dfind at Block bgii. 

Block BG07: When syslbi is not on disk, subroutine 
iFiND is used to position the system tape in front of the 
first record for the desired system. Upon return from 
IFIND, IR2 is set to point to the sysuni entry that contains 
the location of the ucb for the desired unit. 

Blocks BG08 to BGIO: Block bgos is entered from 
Block BG07 and also from the ibedt routine (Block bno9). 
IR2 and the decrement of sysldr are set to point to the 
location of the ucb. The complement of the channel 
number minus 1 is placed in mi. The i/o commands in 
the loader (Calibs) are set to the desired values; control 
then transfers to calib2. 

Block BGll: The system name (disk operation) is 
extracted from the card image at icard+2 and icard + 3 
and positioned in the accumulator for comparison with 
entries in the dsysnm table. 

Block BG12: The dsysnm table is searched for a com- 
parison with the desired system name. The table con- 
tains two words for each system entry. The first word 
of each pair contains the system name in bcd. The sec- 
ond word is in the format: pze „dorg. When a 
comparison is found between the desired system name 
and a name in the table, control transfers to Block bgi3. 
If the system is not included in this table, control trans- 
fers to IFND2 (Block BVll). 

Blocks BG13 to BG16: The system name that has 
been used for comparison is stored in syscur as the 
current system under consideration. The second word 
of the two-word pair is picked up from the dsysnm 
table (iR4 remained set to the relative location of the 
desired word when a valid comparison was found), 
and the decrement portion of this word (dorg) is placed 
in the decrement of syspos. The contents of ir4 are 
stored in the address of syspos. The decrement of 
SYSLDR is set to the location of syslbi and control trans- 
fers to SYSLDR with the decrement of the tsx instruction 
set to 2. This indicates that the location denoted bv the 
decrement of syspos is to be loaded. 
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to rewind, unload or write an end-of-file on a desired 
system tape. If an illegal system unit name was desig- 
nated, an on-line message is printed to give the opera- 
tor an opportunity to correct the card or skip to the 
next job. If a tape is rewound, the density is set as indi- 
cated by the sign of the sysuni entry for that system 
unit. 

IBREW - $REWIND Card Routine 

Block BHOl: This is the entry point for the srewind 
routine (ibrew). iri is set to 3 to indicate a rewind 
operation and control transfers to Block bh04. 

IBWEF - $ENDFILE Card Routine 

Block BH02: This is the entry point for the sendfile 
routine (ibwef). iri is set to 7 to indicate a write end- 
of-file operation and control transfers to Block bh04. 

IBRUN - $REMOVE Card Routine 

Block BH03: This is the entry point for the sremove 
routine (ibrun). iri is set to 4 to indicate an unload 
operation and control passes to Block bho4. 

Block BH04: iri is stored in ibrn3 as part of the 
NDSEL calling sequence. The system unit name is picked 
up from the card image (locations icard+2 and icard+s) 
and positioned in the accumulator for comparison with 
the SYUNAM table. 

Block BH05: The system unit name in the accumula- 
tor is compared to the entries in the syunam table until 
a comparison is found. If no comparison can be found, 
control transfers to ibasi (Block Bji3). 

Block BH06: When the system unit name is in the 
syunam table, the sysuni entry for the unit is tested to 
determine if the unit is assigned. If the unit is not 
assigned (sysuni entry is zero), control transfers to 

IBSYS (Block BCOl). 

Blocks BH07 and BH08: If the unit is assigned, the 
sign of word 1 of the ucb is reset to to indicate that 
the unit is available. Subroutine ndsel is used to per- 
form the desired function as specified in its calling 
sequence. This calling sequence has been previously 
set up at BiocK bho4. 

Block BH09: IRI is set to the complement of the loca- 
tion of the ucb to act as a pointer to this location. Word 
3 of the ucb is picked up to find the present position 
of the system tape. 

Block BHIO: The tape position in the accumulator is 
checked to determine if the tape is unloaded ( accumu- 
lator minus), or not at load point (accumulator non- 
zero). If either condition is present, control transfers 
to ibsys ( Block BCOl ) . 
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Blocks BHll and BH12: At this point (accumulator 
zero ) the tape must be at load point, but not unloaded. 
This would be the result of a rewind operation. The 
density mode is taken from the sysuni entry ( sign posi- 
tion), and placed in the ndsel calling sequence. Sub- 
routine NDSEL sets the density as required for this tape. 
Control then transfers to ibsys (Block bcoi). 



Miscellaneous Card Routines and Error 
Print-Out Routines 

Chart Bj shows the general error print routine, and also 
seven of the shorter main routines used in monitor 
operation. 

IBSTP - $STOP Card Routine 

Blocks BJOl to BJ02: This is the entry point for the 
IBSTP (SSTOP) routine. It is used whenever there are no 
more jobs to be processed on the input tape and opera- 
tion is to be terminated on the monitor system. The list 
switch, LSTSw, is tested to determine if the card has 
been printed. If lstsw is set, indicating that control 
cards are not being printed, subroutine prout is used 
to print this control card. In either case, subroutine 
PROXJT is used to print the on-line message "end of jobs." 
Subroutine stop will cause the on-line print-out 
"cannot proceed," and then provide a final stop. This 
stop is a permanent one, because depressing start 
will have no effect. 

IBDAT - $DATE Card Routine 

Blocks BJ03 and BJ04: This is the entry point for the 
IBDAT (sdate) routine. The date is picked up from 
iCARD+2 and icard+3, positioned in the mq and stored 
in SYDATE. (sydate is also defined and referred to as 
SYSDAT. ) Control returns to ibsys ( Block bcoi ) . 

IBCCC - $CARDS Card Routine 

Blocks BJ05 and BJ06: This is the entry point for the 
IBCCC (SCARDS) Toutinc. The input switch, ibsinp, is 
cleared to set the card read-in routine to read from the 
on-line card reader. The interrupt switch is set and 
control returns to ibsys (Block bcoi). 

IBPAC - $PAUSE Card Routine 

Blocks BJOl to BJ07.5: This is the entry point for the 
iBPAC (SPAUSE) routine. The list switch, lstsw, is tested 
to determine if the card has been printed. If the card 
has not been printed, subroutine prout is used to print 
the card on-line. In either case, subroutine pause will 
provide the print-out "operator action pause," and 
then a halt to allow the operator to perform some 
manual intervention. When start is depressed, there 



is a second on-line print-out, "action completed," and 
control returns to ibsys. 

IBTCC - $TAPE Card Routine 

Block BJ08: This is the entry point for the ibtcc 
($tape) routine. The input switch is set to non-zero to 
indicate to the control card read-in routine that the 
cards are to be read in from tape. Control returns to 

IBSYS. 

IBLIS - $LIST Card Routine 

Blocks BJ09 to BJ09.5: This is the entry point for the 
iBLis (slist) routine. The list switch, lstsw, is tested to 
determine if this card has been printed. If this card 
has not been printed, subroutine prout is used to print 
the card on-line. In either case, lstsw is cleared ( set to 
off) to indicate that control cards are to be printed 
on-line. This switch is normally off upon initial loading, 
and must be turned on by the use of the sunlist card. 
Control returns to ibsys. 

IBUNL - $UNLiST Card Routine 

Block BJIO: This is the entry point for the ibunl 
(SUNLIST) routine. The list switch, lstsw, is set to non- 
zero ( set to ON ) to indicate that control cards are not 
to be printed on-line. Control returns to ibsys. 

Miscellaneous Error Routines 

Block BJll: This is the entry point for the error print- 
out routine used to print the following message: "mixed 

HARDWARE SWITCH INVOLVING SYSLBl IS ILLEGAL." Con- 
trol transfers to iberr (Block Bj14) after loading the 
MQ with the location of the calling sequence command 
used to locate and print this message. 

Block BJ12: This is the entry point for the error print- 
out routine used to print the following message: 
"illegal UNIT specified." Coutrol transfers to iberr 
( Block BJ14 ) after loading the mq with the location of 
the calling sequence command used to locate and print 
this message. 

Block BJ13: This is the entry point for the error print- 
out routine used to print the following message: 
"illegal sysuni definition." Control transfers to iberr 
(Block BJ14) after loading the mq with the location of 
the calling sequence command used to locate and print 
this message. 

Block BJ14: This is the entry point for the general 
error print routine. It is used by the following routines: 
iBSwi, iBATi, iBAsi, iFiND, and iBEDT. Upou entry to this 
routine, the mq must contain the location of the calling 
sequence command to be used by subroutine prout in 
printing the message. The list switch, lstsw, is tested. 
If it is non-zero (ON), control transfers to Block bj19 to 
turn the switch off prior to the transfer to ibtpin. 
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Blocks BJ15 to BJ18: When the Hst switch is initially 
oflf, the MQ is stored in the prout calling sequence. Sub- 
routine PROUT is used to print the desired message on- 
line with the following message on the next line: 
"provide clarification and restart in the card 
P£x\DER." Subroutine pause is used to Provide a tem- 
porary stop for the operator to perform the desired 
manual intervention. Upon depressing start, the input 
switch, iBsiNP, is cleared to simulate a $cards card. Con- 
trol returns to ibsys. 

Block B]19: The list switch, lstsw, is cleared ( turned 
off), and control transfers to ibtpin to print the control 
card on-line, ibtpin will exit to the desired control card 
routine again, repeating the checks made before and 
return to the error print-out routine a second time. On 
the second pass through these routines, at Block bji4, 
the program will find the list switch, lstsw, off, and 
control will not be transferred to Block bj19. The dupli- 
cate passage through these routines is required to force 
the print-out of the control card in error when the 
suNLiST card has been used. 



IBSWC — $SWITCH Card Routine 

IBSWC is used to switch the unit references for two sys- 
tem units. A check is made to determine if both the 
designated units are valid and also to determine if an 
illegal switch is being attempted. An illegal switch 
would be an attempt to switch a tape unit with disk or 
disk with tape when either unit is syslbi. Either error 
condition will cause a pause to allow the operator to 
correct the card or skip to the next job. 

Blocks BKOl to BK04: Each sysuni designated on the 
card is picked up from the card and compared with the 
sysuni table. If both units were not found in the table, 
control would transfer to ibasi ( Block B}04 ) for a print- 
out indicating that an illegal sysuni was specified. 

Block BK05: If both units are found in the sysuni 
table, they are compared to syslbi. This comparison or 
check is made in the following manner. ir2 and ir4 
were used when checking to see if both units were valid. 
Each iR is now tested to determine if the unit was 
found in the table at a point higher than syslbi. If 
neither unit specified was syslbi, control transfers to 

1BSW2 ( Block BKIO ) . 

Blocks BK06 to BK09: Word 1 of the ucb's for both 
specified unit is checked to determine if a request 
is being made to switch syslbi with another unit that 
is not of the same type. If a mixed switch is requested, 
control transfers to ibswi (Block Bjii) for an error 
print-out indicating this condition. 

Blocks BKIO and BKll: When the unit types are the 
same, the entries in the disk limit table are switched 



using the index values contained in ir2 and ir4. The 
same values are also used to switch the ucb addresses 
in the sysuni table. 

Blocks BK14 and BK15: The address of the sysuni 
entry for the first unit is computed and set in ir3. Sub- 
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for that unit. 

Blocks BK14 and BK15: The address of the sysuni 
entry for the second unit is computed and set in ir2. 
Subroutine initus is used to initialize the system tape 
usage for that unit. Control then returns to ibsys. 



IBUNT — $UNnS Card Routine 

This routine prints all the sysuni names with their unit 
assignments and assigned densities. It also lists all 
attached units not assigned or reserved, and all inter- 
system reserve units. It is used primarily to varify unit 
assignments after making specialized changes for a 
specific system run. The routine contains a series of 
loops to examine each entry in the sysuni table, and 
then each ucb. 

Block BLOl: This is the entry point for the routine. 
Subroutine prout is used to print the heading on-line. 

Block BL02: ir2 is set to count the entries in the 
SYSUNI table, and the first entry in this table is picked 
up and placed into iri in complement form. 

Block BL03: iri is tested to determine if a unit has 
been assigned to this sysuni function. If so, control 
transfers to Block blos.s. 

Blocks BL04 and BL05: If no unit has been assigned 
to the referenced sysuni function, a word of bcd blanks 
is stored in temporary message storage. The bcd desig- 
nation "none" is picked up and control transfers to 

RUBC3 { Block BLIO ) . 

Blocks BL05.5 and BL06: If a unit is assigned to the 
sysuni function, the sense indicators are loaded with 
word 1 of the ucb and are tested to determine if the 
unit is a disk unit. If it is not a disk unit, control trans- 
fers to IBMP4 (Block blot). If the unit is a disk unit, 
DOBG and DEND are picked up from the disk limits table 
and converted to bcd. These limits are stored in the 
print image, and the bcd designation for "thru" is 
picked up before transferring control to ibmps ( Block 

BL08 ) . 

Block BL07: If the referenced unit is tape, the old 
density designation is blanked out in the print image 
and the density of this unit is tested. After the test, 
either the image "hiden" or blanks are loaded into 
the MQ. 

Blocks BLU8 and BL09: The mq is stored in the print 
image. This places the configuration for blanks, "hiden," 



or "thru" in the image as required for a particular tape 
or disk unit. Word 1 of the ucb is picked up and sub- 
routine SYUNCV is used to convert this unit address to 
its symboHc form. 

Blocks BLIO and BLll: Entry is made to this block 
with either the symbolic designation of the unit or the 
BCD designation for "none" in the accumulator. The 
designation is stored in the temporary message storage 
area, and subroutine prout is used to print the com- 
pleted message. 

Block BL12: ir2 is tested to determine if all entries 
in the sysuni table have been printed. If all entries have 
not been printed, control returns to ibunt (Block blos). 

Blocks BL13 and BL14: When all entries in the 
SYSUNI table have been printed, subroutine prout is 
used to print a heading for the attached units not as- 
signed or reserved. ir2 is set to the number of ucb's 
and MAPSW is cleared, mapsw is used to determine if 
there have been any units printed in this table. It is set 
whenever a unit is printed. 

Block BL15: The sense indicators are loaded with the 
unit status bits from word 1 of the ucb. 

Blocks BL16 and BL17: The sense indicators are 
tested to determine which units are not assigned to a 
SYSUNI function and are attached but not reserved. If a 
unit does not meet these conditions, control transfers 

to IBMPT (Block BL23). 

Blocks BL18 to BL21: When a unit is attached but 
not assigned or reserved, the unit address is loaded 
into the mq from word 1 of the ucb. Subroutine syuncv 
is used to convert this address to a symbolic designation 
for the unit. This symbolic designation is then stored 
in the print image, and mapsw is set to indicate that 
there has been data printed under this heading. Sub- 
routine PROUT is used to print this symbolic designation. 

Block BL22: This block is entered under the follow- 
ing conditions: (1) after a unit is printed, (2) when a 
unit is assigned to a sysuni function, ( 3 ) when a unit 
is reserved and not attached. ir2 is tested to determine 
if all ucb's have been processed. If ir4 equals 4 or less, 
all units have been processed. If they have not, control 
returns to ibmpi ( Block bli5 ) to pick up the next unit 
( ucb word 1 ) . 

Blocks BL23 and BL24: When all units have been 
processed, mapsw is tested to determine if there has 
been any data printed under the heading. If mapsw is 
not zero, indicating that data has been printed, control 
transfers to ibmp2 to clear mapsw. If no data has been 
printed (MAPSw=0), subroutine prout is used to print 
the word "none." 

Blocks BL25 and BL26: mapsw is cleared (if set) 
prior to the print-out of the next heading. The contents 
of MAPSW are then used to determine if any data is 



printed under the heading. Subroutine prout is used to 
print the intersystem reserve heading. 

Block BL27: ir2 is again loaded with the number of 
ucb's and the sense indicators are loaded with the unit 
status bits from word 1 of a ucb. 

Block BL28: Position 3 of the sense indicators is 
tested to determine if the unit is an intersystem reserve 
unit. If the unit is not, control transfers to ibmtx ( Block 

BL33 ) . 

Blocks BL29 to BL32: When a unit is an intersystem 
reserve unit, the unit address is loaded into the mq 
from word 1 of the ucb. Subroutine syuncv is used to 
convert this to a symbolic designation which is stored 
in the print image, mapsw is set to indicate that there 
has been printing under this heading, and subroutine 
PROUT is used to print the image on-line. 

Block BL33: ir2 is tested to determine if all ucb's 
have been processed. If ir2 is equal to or less than 4, all 
units have been processed. If they have not, control 
returns to ibmps ( Block bl27 ) to pick up word 1 of the 
ucb for the next unit. 

Blocks BL34 and BL35: When all units have been 
processed, mapsw is tested to determine if there has 
been a print-out under this heading. If one or more 
units have been printed, control transfers to ibsys. If no 
units have been printed, subroutine prout is used to 
print the word "none," and control returns to ibsys. 



IBREL/IBASC — $RELEASE/$AS Routines 

Chart bm shows two routines which differ only in the 
entry point and one operation, ibasc is used to assign 
the last attached unit specified in location latun to a 
specific system unit function, ibrel is used to release 
the specified system unit. 

In ibrel, the unit previously assigned to that system 
unit function is entered into the availability chain for 
that channel. Because latun is cleared, ibrel does not 
assign a new unit to the sysuni function. 

IBASC must also remove the newly assigned unit from 
the availability chain for the associated channel. 

In both routines, a check is made for the validity of 
the unit specified on the card. An invalid unit will 
cause an error message print-out. 

IBREL Routine 

Block BMOl: This is the entry point for the ibrel 
routine. Location latun is cleared and control passes 
into the ibasc routine, latun is the location where the 
designation for the last unit attached would normally 
be stored. When the ibasc routine is entered with this 
location set to zero, it causes the sysuni entry for the 



23 



specified function to be cleared to indicate that there 
is no unit assigned to that function. 

IBASC Routine 

Block BM02: This is the entry point for the ibasc 
routine. It is also entered from ibrel with location 
LATUN cleared. The system name is picked up from 
iCARD + 2 and iCAED + 3, and positioned in the accumu- 
lator for comparison with the syunam table. 

Block BM03: The syunam table is searched for an 
entry that will compare with the one specified on the 
control card. If none can be found, control will transfer 
to iBASi ( Block BJ13 ) to print an on-line message indi- 
cating an illegal sysuni function. 

Block BM04 to BM06: If the system name is found in 
the SYUNAM table, the previous assignment for this 
function is picked up from the sysuni table and stored 
in iBASX for later use in ibas3 (Blocks bm24 through 
BM26. ) The unit specified in latun is either the address 
of the ucB following a $attach card, or zero if the card 
presently being processed is a srelease card. This unit 
is placed in the sysuni table, and the sense indicators 
are loaded indirectly from this sysuni entry. This sets 
the contents of ucb word 1 into the sense indicators. 

Blocks BM07 and BM08: Positions 4 and 11 of the 
sense indicators are tested to determine if the unit is 
disk. If the unit is disk, control transfers to Block bmo9; 
if not, subroutine rsyur is used to remove the unit from 
the availability chain for the channel. 

Block BMW: tcabd + 3 is loaded into the mq. The den- 
sity specification is extracted from the contents of the 
mq and loaded into the accumulator. 

Blocks BMIO to BM11.5: The density specification is 
compared to the bcd designation "L." If the specifica- 
tion is greater than or equal to "L," low density is indi- 
cated and the accumulator prefix is set to plus. If 
the specification is less than "L," high density is indi- 
cated and the accumulator prefix is set to minus. 

Block BM12: The nrefix of the accrmnlator is stored 
in the sysuni table. This will cause the sysuni entry to 
be minus for a high density unit and plus for a low 
density unit. 

Blocks BMJ3 and BM14: ir2 is set to point to the 
SYSUNI entry, and subroutine initus is used to initialize 
the tape usage for this unit. 

Blocks BM15 and BM16: ir2 is set to the relative loca- 
tion of the desired unit within the sysuni table. The 
sense indicators are loaded indirectly from this sysuni 
location to give the contents of word 1 of the desired 

UCB. 

Block BM17: Positions 4 and 11 are again tested to 
determine if the unit under consideration is disk. If it 
is not, control transfers to ibass ( Block bm24 ) . 



Blocks BM18 to BM23: When the unit is disk, the 
origin and number of cylinders are loaded into the mq 
from the bcd designation on the control card. Location 
ibdsk is cleared for use as a temporary storage cell in 
building up the binary equivalent of the origin and 
number of cylinders. The origin is converted to binarv, 
multipUed by 40, and stored in the address of the disk 
limit table entry for that unit. The number of cylinders 
is converted to binary and multiplied by 40. The value 
of the last cylinder is computed and stored in the decre- 
ment of the disk limit table entry for that unit. 

Blocks BM24 to BM26: When control is given to 
IBAS3, the contents of ibasx are tested for zero to deter- 
mine if there had been any previous unit assigned to 
the system unit function. If no unit had been assigned 
( iBASx equals zero ) , control transfers to ibsys. If a unit 
has been assigned, the address portion of ibasx is com- 
pared to all the addresses in the sysuni table to deter- 
mine if the unit is still in use by any other system unit 
f"nction. If the unit is still in use, control transfers to 
ibsys. If the unit is not in use, word 1 of the ucb is tested 
to determine if it is a card machine. If the unit is a card 
machine, control transfers to ibsys. At this point, if the 
unit is not a card machine, provisions are made to 
enter it at the top of the availability chain for the 
correct channel. 

Blocks BM27 to BM30: The no-repositioning flag is 
reset and the sign is set to indicate that the unit is not 
assigned. The word is replaced in the ucb. The channel 
number is extracted from the unit address and placed 
in iRi in complement form. Subroutine rsyur is used to 
remove the unit from the availability chain. This is 
done to eliminate any chance of the unit appearing in 
the availability chain twice, The unit is placed at the 
beginning of the availability chain and control trans- 
fers to IBSYS. 



IBEDT — $IBEDT Card Routine 

The IBEDT routine (Chart bn) is used to call in and 
execute the system editor from syslbi. If the system 
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svstem is not on disk, the tatie is riositioned to the 
editor and the editor is read in. Control then transfers 
into the ibxcc routine to cause execution of the editor. 
This chart also shows the select routine used by ibedt. 

Block BNOl: This is the entry point for this routine. 
SYsoRG+ioi is tested to determine if the system is on 
disk. If the system is not on disk, control transfers to 

EDT5 ( Block BN03 ) . 

Block BNU2: If syslbi is on disk, the bcd designation 
for the EDITOR is placed into the card image to simulate 
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an SEXECUTE EDITOR Card and control is transferred to 
iBxcc ( Block BGOi ) for execution. 

Block BN03: If syslbi is on tape, ir2 is loaded with 
the complement of the location of syslbi. This becomes 
an indirect reference to the ucb for the desired system 
tape. The desired tape position counter, rgt3, is in- 
cremented by 1 to indicate to routine rgtpo to set-up 
for reading the next file. 

Blocks BN04 to BN06: Subroutine rgtpo is used to 
position the system tape to the next file on the tape. 
iRi is set to the complement of the location of the ucb, 
and the select word (edtd is stored in word 2 of the 
UCB. This word contains the location of the select rou- 
tine (RGT7) in the decrement and the location of the i/o 
command in the address. 

Blocks BN07 and BN08: Subroutine (ACtiv is used to 
read the first record of the file. Word 2 of the ucb is 
tested to determine when the record has been read in. 
Control remains in a loop until word 2 of the ucb is 
cleared. When the word is finally cleared by the trap 
supervisor in ioex, control will be allowed to leave the 
loop and continue to Block bno9. 

Block BN09: The second word of the record read-in 
is compared with "ibedt." If there is an equal compare 
( editor found ) , control transfers to ibxci (Block bgos ) . 

Block BNIO: If the second word of the record does 
not equal "ibedt," it is then compared to "*eot." If 
there is still an unequal comparison, control transfers 
back to ibedt to check the next file for the editor. 

Block BNll: At this point the editor has not been 
found up to the end of the system tape and therefore 
must be missing from the tape. The editor name is de- 
posited into an error message and control transfers to 
iberr ( Block BJ14 ) for an error print-out. 

Blocks BN12 and BN13: This is the entry point for 
the general tape positioning routine. It is entered with 
IR2 set to the complement of a location which contains 
the address of the ucb for the desired unit. The decre- 
ment of the accumulator contains the file position num- 
ber to be compared to the file position contained in the 
ucb. IR4 is saved, and the desired tape position is stored 
in RGT3. Subroutine initus is used to initialize system 
tape usage for this tape. 

Blocks BN14 and BN15: Location rgt3 is tested to 
determine if the desired tape position is zero. If it is, 
subroutine ndsel is used to rewind the tape and con- 
trol returns to rgt2 to exit from the routine. 

Block BN16: When the desired tape position is not 
zero, mi is set to point to the location of the ucb. 

Block BN17: The desired tape position in rgts is 
compared to word 3 of the ucb, which is the actual tape 
position at this time. If the tape positions are the same, 
control transfers to rgts ( Block bn23 ) to exit from the 



routine. If the actual tape position is less, control trans- 
fers to RGT4 ( Block BN19 ) . 

Block BN18: Because the tape is neither at the de- 
sired location nor at a point before the desired loca- 
tion, it is beyond the desired location. Subroutine ndsel 
is used to backspace the tape one file, and control 
transfers back to Block bnit for another comparison. 

Block BN19: If the actual tape position is less than 
the desired position, word 2 of the ucb is tested to 
determine if the unit is dormant. This is done to make 
sure that the tape has completed any movement due to 
a previous attempt to use the routine to skip forward. 
The program loops within routine rgt4 until word 2 of 
the ucb is set to zero by ioex. After the trap supervisor 
clears word 2 of the ucb, it regains control and returns 
to the testing loop. At this time, control passes to 

Block BN20. 

Blocks BN20 and BN21: Location rgts is set to pro- 
vide a waiting loop when subroutine actv is being used. 
The select word, rgt6, is stored in word 2 of the ucb 
and control is transferred to actv in ioex. 

Block BN22: rgts contains a transfer to itself to act 
as a waiting loop to allow actv to move the tape ahead 
one record. The select routine will change the contents 
of RGTS to a transfer to rgti ( Block bni6 ) . When the 
trap supervisor gains control at the end of the tape 
movement, it returns to rgts. Control is then trans- 
ferred to RGTi ( Block BN16 ) to Compare this tape posi- 
tion with the desired tape position again. 

Block BN23: After the tape is rewound (desired 
position equals zero ) or after the desired tape position 
is found, IR4 is restored and control exits to the calHng 
program via i, 4. 

Blocks BN24 and BN25: This is the select routine to 
be used by rgtpo in forward spacing a tape one file. 
IR2 is set to point to the ucb for the desired unit. The 
accumulator is tested to determine if ioex is using the 
routine to post the completion of an i/o operation or to 
initiate one. If it is posting, the accumulator is minus, 
and control is transferred to rgts ( Block bn29 ) . 

Blocks BN26 to BN28: If an i/o operation is to be 
initiated (accumulator plus), rctx, i is set to zero to 
indicate no redundancy checking. The location of the 
I/O command is placed into rchx, i. The binary select 
address is generated from word 1 of the ucb and stored 
in the rds instruction. The rds and rchx, i instructions 
are executed. Control exits to the calling program (ioex) 
via 1, 4. 

Blocks BN29 to BN32: If a posting operation is indi- 
cated, the tape position is picked up from word 3 of 
the ucb. This position is compared with the desired 
tape position in rgt3. If the actual position is less than 
the desired position, control transfers back to ioex, 
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which will initiate another i/o operation to skip the 
next record on the tape. If the actual position is equal 
to or greater than the desired position, word 2 of the 
ucB is cleared to indicate that activity has ceased on 
this unit at this time. The waiting cell in rgtpo is 
changed to a transfer to rgti. Control exits to ioex 
via 1, 4. 



Restore Nucleus, System Interrupt, and 
Dump Caller Routines 

Chart BP shows the routine used to call ibsup into 
memory (Calibd. It also includes the two routines that 
utilize this routine in performing their functions, the 
system interrupt routine (sysrpt or intrup), and the 
system dump routine (sysdmp or dump). 

CALiBi will load in one record from syslbi if syslbi is 
not disk. If syslbi is disk, sysldr will be used to load 
in one record. In either of these cases, the record must 
be in the self-loading format with the desired i/o 
command at the beginning of each block of data within 
the record. Ten attempts will be made to read the 
record properly. If these are all unsuccessful, the pro- 
gram transfers to location 0, which will have a halt- 
transfer to the restart point in case the operator desires 
to try again. The record will be checked as it is being 
read in ( as well as at the end of the read-in ) , and the 
channel will be immediately stopped if a redun- 
dancy is encountered. This eliminates passing a long 
tape record across the read head when the error is 
found near the beginning of the record. The tape posi- 
tion is updated, and the program tests the dump switch, 
DMPSw, to determine whether to transfer control to 
ibsys or return to read in the next record (sysdmp) and 
eventually transfer control to it. 

SYSRPT checks sense switch 1; if the switch is down, 
it sets the interrupt switch and transfers control to 
CALIBI to return control to ibsys after reloading ibsup. 

SYSDMP saves the present contents of core, all key 
registers, and status indications. The dump switch, 
DMPSW, is set and control is given to calibi to load in 
ibsup and eventually the system dump routine. 

CALiBi — Restore Nucleus Routine 

Block BPOl: Word 1 of the ucb for the system unit is 
tested to determine if the system unit is disk. If the 
system unit is disk, control transfers to Block bpi9. 

Blocks BP02 and BP03: If syslbi is not disk, ir2 is set 
to point to the location of the ucb. The necessary i/o 
commands for tape unit ai are generated and stored in 
their respective locations in the routine. The system 
tape is then rewound and the tape position indicator 
in word 3 of the ucb is set to zero. 



Block BP04: The channel is tested to determine if it 
is busy. If it is busy, the program will loop here until 
the channel completes the present operation. 

Blocks BP05 and BP06: When the channel becomes 
"not busy," traps are disabled and location zero is set 
for the restart entry. ik4 is set to 10 to allow this number 
of rereads after a redundant read occurs. The opera- 
tor also has the option of using this routine as a restart 
entry point after 10 consecutive, unsuccessful attempts 
to read a record. An additional 10 rereads are initiated 
by depressing start. This operation may be repeated 
more than once. 

Blocks BP07 to BPIO: The channel is started in op- 
eration and tested for redundancies. If any are found 
during the read operation, control transfers immedi- 
ately to Block BP16 to stop the channel. This test for 
redundancies is followed by a test for channel in op- 
eration. As long as the channel is in operation, and no 
redundancies occur, control will remain alternately 
with these two instructions. When the channel finally 
completes the operation, it is again tested for redun- 
dancies. 

If redundancies are encountered after the operation 
is completed, control transfers to Block bpi7 for possible 
retries at reading the record. 

Blocks BPll and BP12: When the channel operation 
is completed without encountering redundancies, the 
tape position in word 3 is incremented by 1. The dump 
switch, DMPSW, is tested to determine if this routine is 
being used by the dump routine. If it is, control trans- 
fers back to CALIB2 (Block bpo4) to read in the dump 
program. 

Blocks BP13 to BP15: When the dump routine is not 
required, the enable switcli, enbsw, is tested to de- 
termine if trapping is to be enabled. If enbsw is non- 
zero, control transfers directly to systra. If enbsw is 
zero, traps are enabled before control is transferred to 

SYSTRA, 

Block BP16: Block bpi6 will be entered if a redun- 
dancy is encountered while reading in the record. The 
channel will be stopped immediately to eliminate 
wasted time in passing the rest of the record over the 
read head. 

Blocks BP17 and BP18: Any time a redundancy is 
encountered, the tape will be backspaced. ir4 is tested 
to determine if the reread has been tried 10 times. 
If 10 rereads have not been tried, control returns to 
CAL3 (Block BPO?) for another attempt. After 10 at- 
tempts, control will transfer to location and halt. The 
operator may now decide to attempt 10 more rereads 
by depressing start. 

Block BP19: It syslbi is on disk, the decrement of 
SYSTCH is set to the disk origin as obtained from the 
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disk limits table. Control is then given to sysldr to load 
in the system from disk. 

SYSRPT — System Interrupt Routine 

Block BP21: Entry is made to this block by using the 
communication cell sysrpt. If sense switch 1 is up, con- 
trol transfers to Block bp25 to clear intsw and exit to 
the calling program. 

Blocks BP22 to BP24: If sense switch 1 is down, 
INTSW is tested to determine if this interrupt is to be 
permitted. If intsw is non-zero, control returns to the 
calling program at i, 4. If intsw is zero, indicating 
that the interrupt is to be permitted, Rtrpsw is set. 
iBSiNP is cleared to indicate that the input unit is to be 
the card reader. Control then transfers to calibi to re- 
load iBSUP, and take the next control card from the 
card reader. The operator should then have cards that 
indicate the next course of action for the system in the 
on-line card reader. 

Block BP25: intsw is cleared to indicate that future 
requests for interrupts may be honored. Control re- 
turns to the calling program at i, 4, 

DUMP — Dump Caller Routine 

Blocks BP26 to BP29: The dump routine first starts 
to put out a save record on the save tape. (This is 
initialized to sysut4.) This save record consists of lo- 
cation through the end of the storage cells for the 
machine registers which are to be printed out by 

SYSDMP. 

Location is cleared and traps are disabled. Transfer 
trap status is saved, and transfer trapping mode is 
disabled if it was in effect. At dmpto, the channel is 
checked to see if the save record has been written. 
Until it has been, completely written, the program loops 
at this point. 

Blocks BP30 to BP32: After the save record has been 
written, dmpsw is set to indicate that a dump is re- 
quested. (This will cause calibi to load in the dump 
routine before transferring control to systra. ) When 
the SYSDMP record is read in, systra will be set to trans- 
fer to the dump program, sysdmp will be inserted in 
SYSCUR to indicate that the dump is the current system, 
and ENBSW will be set to non-zero to indicate that trap- 
ping is not to be enabled before entering the dump 
program. The key registers and status conditions are 
saved within the dump program. Control transfers to 
CALIBI to reload ibsup and sysdmp, and transfer con- 
trol to SYSDMP. 



CAUB3 /SYSLDR — System Loader 

CALIB3 is entered from the sysldr entry in the com- 
munications table in the nucleus. The value of the de- 
crement of the Tsx instruction used to transfer to 



SYSLDR determines which one of the three options will 
be used in loading from the system library unit. If the 
decrement is equal to 0, the next record in sequence 
will be loaded. If the decrement is 1, the desired 
SYSREC name is taken from the calling sequence, (see 
inset on Chart br ) . sltabl is scanned to locate the track 
address and the system record is loaded. If the decre- 
ment is 2, the location previously placed in syspos is 
loaded. 

If this routine is entered for a system that is not disk, 
the next record in sequence is loaded, using the calib2 
entry on Chart bp. If the dump switch is on when an 
entry is made into this routine, two records will be 
loaded. When a dump is requested, the dump caller 
will properly position the system tape or set up the 
disk commands to read two records; therefore, the 
dump routine should be used to provide a dump. 

Blocks BROl and BR02: The unit address is picked 
up from the first word of the ucb and tested to de- 
termine if the system unit is disk. If the system unit 
is not disk, control transfers to calibs, which will load 
in one record from the system tape and transfer con- 
trol to it. If the system is on disk, location is cleared 
to provide an error halt. The data channel is reset and 
the designation sysrec is picked up from the calling 
sequence and saved in case it is required later. 

Block BROS: The value of "N" from the calling se- 
quence is placed into ir4, where it is tested to determine 
which of the three options has been requested. If N 
equals 0, control transfers to calsy (Block bri9) to 
load the next record. If N equals 2, control transfers 
to CAL3Y (Block BR2o) to load the location indicated 
in SYSPOS. 

Blocks BR04 and BROS: If N equals 1, the designated 
SYSREC is loaded. Location is loaded with the ad- 
dress for a restart at this point in the program. The 
channel is reset and started with the channel program 
at CAL5Y. This will seek the spare surfaces on disk and 
write a checkpoint record. Subroutine calpow tests 
for an I/O Check, Sequence Check, Unusual End or 
Adapter Check during the operation of the channel. If 
none occurs, control will pass to calioy. If any of these 
conditions occur, control will return to calqy to start 
the channel for another attempt at writing the check- 
point record. 

Blocks BR06 and BR07: Location is reset to the 
new restart location. The channel is reset and started 
with the program at cal6y. This will read in the sltabl, 
which contains the table for comparison with sysrec 
and the appropriate track addresses for each entry in 
this table. Subroutine calpow will determine if the 
read-in was valid before allowing the search of sltabl. 

Blocks BROS to BRIO: The sltabl is scanned for the 
entry denoted as sysrec, and the track address for this 
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record is then obtained from this table. Location is 
reset for restart purposes. The channel is reset and 
started with the program at cal7y. This will restore 
core to its previous status using the checkpoint record 
written earlier. Subroutine calpow will allow con- 

successfully. 

Blocks BRll to BR13: Subroutine (decvd is used to 
convert the track address found in sltabl to bcd. Sub- 
routine FDAMT generates the required disk orders to 
load in this record, and these orders are stored in the 
proper locations. 

Blocks BR14 and BR15: Location is reset for 
restart purposes and the channel is reset and started 
with the program at cal8y. This will seek the desired 
record, read in its bootstrap for the scatter load routine 
and transfer control to this scatter load routine. Mean- 
while, subroutine calpow will determine if the record 
has been read in correctly and will initiate additional 
attempts if required. 

Block BR16: When a complete record has been read 
in, SYSTCH will have been loaded with a bit in position 
3. This is tested to determine if the record is complete, 
or if it has bridged two cylinders and requires an ad- 
ditional read for completion, systch will have the track 
address for the next record in either case. If an addi- 
tional read is required, control will transfer to Block 
BR22 to set up the address of the next record desired. 

Blocks BR17 and BR18: When a complete record has 
been read in, the dump switch is tested to determine 
if a dump is requested. If it is, control transfers to 
Block BR21. If a dump is not requested, ir2 is set to 
point to the location of the ucb for syslbi, and control 
transfers to systra-2 (Block bpj4). 

Block BR19: The sense indicators are loaded with the 
contents of systch which has the track address for the 
next record to be loaded ( N equals ) . 

Block BR20: The system position in syspos is loaded 
into the sense indicators to indicate the next record to 
be loaded ( N equals 2 ) . 

Block BR21: When a dump is requested or when N 

tain that only one record will be loaded ( unless that 
record changes the value of this bit in systch). 

Block BR22: The contents of the sense indicators 
are placed into the accumulator. This will be the ad- 
dress of the next record desired in binary form. This 
could be the result of a dump request requiring a sec- 
ond read, a system that bridges two cylinders, or a re- 
quest for the record denoted by syspos or systch. 
Control passes to Block brii for conversion of this ad- 
dress to BCD and subsequent read-in of the desired 
record. 



Disk Loader Waiting Loop and 
Disk Channel Routines 

Chart Bs shows the waiting loop routine calpow, and 
the four channel routines: calsy, cal6y, calty, and 
CAL8Y. These channel routines write a checkpoint rec- 
ord on the spare disk surfaces, read sltabl from its 
disk location, read the checkpoint record back from 
disk, and read the desired record into the scatter load 
routine. 

calpow tests for an I/O Check, Sequence Check, 
Unusual End, or an Adapter Check while waiting for 
the disk operation to be completed. If any of these are 
found, control is returned to the main program at such 
a point as to cause the channel program to be restarted 
for another try. After a successful read, control will 
pass to the location following the one which called 
this subroutine. 

CAL5Y seeks the spare surfaces on the disk, and writes 
a checkpoint record on these surfaces. This will insure 
that the area used when reading in the sltabl will be 
restored after this table is used. 

CAL6Y reads in the sltabl for comparison with the 
BCi designation in sysrec in the calling sequence for 
SYSLDR. This table consists of two word entries con- 
taining the BCI designation for each system record, and 
the corresponding binary track address for that record. 

CAL7Y restores the checkpoint record written by 

CAL5Y. 

CAL8Y issues a seek for the desired sysrec, and causes 
it to be read into its proper storage locations using the 
scatter load routine. 

CALPOW — Disk Loader Waiting Loop 

Block BSOl: An sdcx instruction is executed which 
causes the contents of the diagnostic channel to be 
stored in isseh. The contents of the channel check 
register are stored in positions 6 through 11 of this lo- 
cation by the sdcx command. The sense indicators are 
loaded from isseh so that the^^ ma^'^ be tested. 

Block BS02: Bit positions 6, 7, 8, and 11 of the sense 
indicators are tested to determine if there has been 
an I/O Se'^uence or Ada^^ter Check or an Unusual 
End. If there has been any one or more of these condi- 
tions, control passes to Block bsos to modify ir2 for an 
error exit. 

Block BS03: When no error conditions exist, the chan- 
nel is tested to see if the operation is complete. Until 
the operation is complete, the program will loop back 
to Block BS02 and continue to check for error conditions. 

Block BS04: When the channel operation is com- 
pleted, the channel is reset. Control transfers back to 
the main program at either the location immediately 
after that which called the subroutine (1, 2 — no error) 
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or the location immediately prior to the location which 
called the subroutine ( — 1, 2 - - error found ) . In the 
latter case, this will cause the channel operation to be 
restarted and another attempt made. 

Block BS05: ir2, which is being used for the return 
linkage, is modified to provide the error exit, and con- 
trol passes to iblast (Block bso4) for eventual return 
to the main program. 

CAL8Y - Load System Record 

Blocks BS06 and BS07: This is the channel program 
used to load in a desired system record. Unusual End 
and Attention Interrupts are inhibited and a seek is 
issued for the sysrec desired. 

Blocks BS08 to BSIO: The channel check register is 
tested to determine when the seek is completed. On 
completion, a "control read" is given to indicate to the 
file control a "prepare to verify for cylinder" operation. 
Control transfers to the scatter load routine which loads 
the record into its proper storage locations. 

CAL5Y - Write Checkpoint Record 

Blocks BSU and BS12: This is the start of the chan- 
nel program used to write a checkpoint record on the 
spare surfaces on disk. Unusual End and Attention 
Interrupts are inhibited, and a seek is issued for the 
spare surfaces. 

Blocks BS13 and BS14: The channel check register 
is tested to determine when the seek is complete. On 
completion, a "control write" is given to indicate to the 
file control a "prepare to verify for cylinder" operation. 

Blocks BS15 and BS16: A "copy and disconnect" is 
given to cause the checkpoint record to be written, ( or 
the SLTABL to be read, or the checkpoint record to be 
read if entry was made to either cal6y or cal7y). 
The channel waits until the operation is completed 
and then disconnects. 

CAL6Y - Load SLTABL 

Block BS17: This is the start of the channel program 
to read sltabl into core when the calling sequence for 
SYSLDR requests that a specific sysrec is to be loaded. 
A "control read" is given to indicate to the file control 
a "prepare to verify for cylinder" operation, and con- 
trol transfers to Block bsis for the "copy and dis- 
connect." 

CAL7Y — Read Checkpoint Record 

Block BS18: This is the start of the channel program 
to read the checkpoint record that was written by 
caloy. a "control read" is given to indicate to the file 
control a "prepare to verify for cylinder" operation, 
and control passes to Block bsi5 for the "copy and 
disconnect." 



System Return and Print Tape Positions Routines 

Chart BT shows the ibret routine, used to return control 
to the current system, as specified by syspos. If the po- 
sition indicated in syspos is vahd, a sexecute (Sysnam) 
card will be simulated, and control will be given to the 
execute routine to locate and bring in this system. If 
this position is not valid, a message will be printed 
on-line indicating that the current system name is 
missing and the operator should restore with an 
SEXECUTE (SYSNAM) card in the card reader. 

Also on Chart bt is shown the routine used to print 
the positions for all output units when ibsys is given 
control after executing a system other than the dump 
or the editor. If the previous system was the dump, 
control will be given to ibret without printing the tape 
positions. If the return was from the editor, the tape 
positions will not be printed but control will be given 

to IBSYS. 



IBRET — System Return Routine 

Blocks BTOl and BT02: This is the entry point for 
the IBRET routine. The dump switch is cleared, and the 
current system position is picked up from syspos. This 
position is tested for zero; if it is found to be zero, con- 
trol transfers to dmper (Block btot) for an error 
print-out. 

Blocks BT03 to BT06: If a valid system position is 
specified in syspos, the unit address is checked to de- 
termine if the current system unit is disk. If the unit 
specified is disk, control transfers to sysldr with N 
equal to 2 to indicate that the system denoted in 
SYSPOS is to be loaded. If the system is not on disk, the 
SYUNAM table is searched for an entry which has the 
matching system position. This table contains two word 
entries comprised of the system name and its location. 
If a match cannot be found, control transfers to 
DMPER (Block BT07) for an error print-out. If the 
match is found, the system name is picked up from 
the table and a dummy sexecute (Sysnam) card is simu- 
lated. Control then transfers to ibxcc ( Block bgoi ) . 

Blocks BT07 to BT09: If the system position is in- 
valid, subroutine prout is used to print the following 
error message: current system name missing, restore 
WITH sexecute sysnam IN SYSCRD. Subroutine pause 
is used to provide an operator action pause. When the 
operator has completed his operation and depresses 
start on the console, the input switch will be cleared 
to indicate that the input is to come from the card 
reader. Control then transfers to ibres (Block bdoi). 
The operator must have a stape card in his on-fine deck 
in order to have the monitor return to tape input if he 
was using this prior to the error print-out. 



29 



TPPS — Print Tape Positions Routine 

Blocks BTIO and BTll: The system name table is 
moved from its position immediately after the system 
origin to a working area. The tag bits of each second 
word entry in the table are moved to the address part 
of the word and the ta*'' positions are cleared. 

Blocks BT12 and BT13: During the loading of the 
dump program, the dump switch is set to mze. This is 
interpreted as being off, since the other tests of the 
dump switch check to see if it is zero and do not check 
the sign position. The sign is tested here to determine 
if the dump program has just been executed. If the sign 
is minus, control transfers to ibret ( Block btoi ) with- 
out printing the peripheral tape positions. When the 
return is not from the dump program, the interrupt 
switch is set to plus. 

Blocks BT14 and BT15: The original value of intsw 
is tested for a minus condition which indicates a re- 
turn from the editor. In this case, control transfers to 
iBSYS (Block Bcoi ), without printing the tape positions. 
If the return is not from the editor, the ucb address 
for SYSoui is picked up from the system units table. 

Blocks BT16 to BT19: This address is tested to de- 
termine if there has been a unit assigned to this func- 
tion. If no unit has been assigned, control transfers to 
Block BT25, For an assigned unit, subroutine syuncv 
is used to convert this binary address to a symbolic 
address in the form of channel and unit. This symbolic 
designation is stored in the print line for this system 
unit. The file number is picked up from word 3 of the 
UCB and subroutine bcvdec is used to convert it to deci- 
mal. The file number is placed into the print line and 
the record number is picked up from word 3 of the 
UCB. Subroutine bcvdec is used to convert the record 
number to decimal and this bcd designation is placed 
into the print line. 

Blocks BT20 and BT21: mi is tested to determine if 
all three units have been processed. If all three units 
have not be processed, control transfers to Block bt22. 
When all three units have been processed, subroutine 
PROUT is used to print the heading line and the three 
lines of information. Control then transfers to ibnjb 
( Block Buoi). 

Blocks BT22 to BT24: When the three units have not 
been processed, the unit address for sysppi is picked 
up. iRi is tested to determine if this unit has been 
processed ( second unit ) . If it has not been processed, 
control transfers to tposi (Block bti6). If the sysppi 
unit has been processed, the unit address for sysini is 
picked up. Control then transfers to Block bti6. If there 

conversion is made and is stored in the print image. 
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essed prior to the message print-out. 



Sktp Job Routines 

Chart BU shows the routine used to allow the operator 
to skip jobs on an input tape. The operator places sense 
switch 6 down, and places the number of the next job 
desired in the entry keys. If the input unit is sysini, 
this sense switch will be interrogated. The following 
three conditions must be met in order for the request 
to be honored: (1) the input unit must be sysini; (2) 
sense switch 6 must be down and ( 3 ) the unit assigned 
to SYSINI must be tape. If all conditions are not met, 
control transfers to ibsys. The operator's entry is then 
checked to see if it is valid. A request of zero causes 
return of control to ibsys. A high request ( greater than 
15 ) causes an on-line print-out, and a pause for opera- 
tor clarification. After a valid request, sysini is rewound 
and subroutine prout is used to print an on-line mes- 
sage telling the operator to place sense switch 6 up. 
Subroutine pause is then used to provide a pause for 
the operator to perform this action. When the operator 
depresses start, control transfers to ibsys. 

ibtpin will transfer control to ibnj2 on each entry 
while iBNCT is not zero. This routine will save the most 
recent sexecute card and keep count of all $id cards 
that arc encountered. Each sid card will cause ibnct 
to be reduced by 1. When ibnct goes to 1, the sexecute 

in after backspacing the input tape over the last $id 
card read in. A sstop card encountered before the count 
goes to zero causes an on-line print -out and a transfer 
to iBSTP for a permanent stop. 

IBNJB Routine 

Block BUOI: The input switch is tested to determine 
whether the input unit is sysini. If the input is not 
SYSiNi, control transfers to ibsys. 

Blocks BU02 to BU04: When the input unit is sysini, 
sense switch 6 is tested to see if the operator has re- 
quested that jobs be skipped. If this switch is up, in- 
dicating that he does not want to skip jobs, control 
transfers to ibsys. If sense switch 6 is down, the unit 
address for sysini is tested to make certain that the 
actual device attached as sysini is a tape unit. If a non- 
tape unit is attached, control transfers to ibsys. When 
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Blocks BU05 to BU07: The job number is tested to 
determine if the number entered was zero. If zero is 
specified, control transfers to ibsys. If the number was 
not zero, it is stored in ibnct. Subroutine (decva is used 
to convert this number to decimal, and the result is 
stored in the print image. Subroutine prout is used to 
print this image informing the operator that the request 
has been acknowledged. 

Blocks BU08 and BU09: On the initial pass through 
the skip job routine, ibnjs is zero, indicating that the 
job request has been read the first time. A test is then 
made to determine if the job number stored in ibnct 
is greater than 15. If the job number is 15 or less, con- 
trol transfers to ibnji (Block buio) to rewind sysini. 

After IBNJS is tested the first time, it is made non-zero. 
Therefore, when the location is tested during a sec- 
ond pass through the routine, control is transferred 
directly to ibnji regardless of the job number stored in 

IBNCT. 

Blocks BUIO to BU12: If the initial request was less 
than 15, or after a second request for a number greater 
than 15, subroutine prout is used to print an on-line 
message telling the operator to place sense switch 6 
up, and subroutine pause is used to provide time for 
the operator to perform this operation. When the opera- 
tor depresses start, control transfers to ibsys (Block 

BCOl ) . 

Blocks BU13 and BUM: On the first pass through 
the skip job routine when the job number exceeds 15, 
operator clarification is required. Subroutine prout 
is used to print an on-line message which indicates to 
the operator the job number requested and asks for 
clarification of the job number. Subroutine pause pro- 
vides time for operator intervention so that the entry 
keys may be checked. The operator has the option of 
making no change to the entry or of changing the job 
number. When start is depressed, control returns to 
Block BU02 for a second pass through the routine. 

IBNJ2 Routine 

Blocks BU15 and BU16: When a skip job request is 
indicated in ibsys (ibnct is not zero), the first word 
in the input card image is picked up and compared to 
SEXECUTE. If the comparison is low, indicating that the 
card read-in is not one of the cards requiring special 
attention, control transfers to ibsys to get another card. 
If there is an equal comparison, routine ibnj3 is used to 
save the indicated system for subsequent execution. 
If the comparison is high, additional checks are made. 

Blocks BU17 to BU19: The card image is next com- 
pared to $STOP. If it is a sstop card, control transfers to 
IBNJ4 (Block BU24) for a message print-out prior to a 
stop procedure. When the card is not sstop, it is com- 
pared to SID. If the comparison is not equal, control 



transfers to ibsys to get another card. If a $id card is 
indicated, the count in ibnct is reduced by 1. 

Blocks BU20 to BU23: ibnct is now tested to de- 
termine if the count has been reduced to zero. If the 
count has not been reduced to zero, control transfers to 
iBSYS for another card. When the count has been re- 
duced to zero, subroutine ndsel is used to backspace 
the input tape over the card just read. Subroutine prout 
is used to print the name of the system to be executed, 
and a sexecute sysnam card will be simulated from the 
information previously stored. Control transfers to 
iBxcc ( Block BC03 ) to call in and execute this system. 

Block BU24: The block is entered if a sstop card is 
encountered before the desired number of jobs have 
been skipped. Subroutine prout is used to print an on- 
line message to the operator indicating that a sstop 
card was found prematurely. Control transfers to 
iBSTP to provide a permanent stop to the system. 

Block BU25: This block is entered when a sexecute 
card is encountered during skipping. The system name 
is saved in order to simulate this card when the de- 
sired SID card is located. Control then transfers to ibsys 
to get another card. 



Locate Desired System and Validate 
Channel and Unit Designation 

The ifind routine shown on Chart bv scans the system 
name table for the system specified on an input card. 
If the name is found in the table, this name will be 
stored in syscur as the current system name. If a unit 
has been assigned to this function, the system position 
will be stored in syspos. Subroutine rgtpo will position 
the proper system tape in front of the desired system, 
and the routine will return to the main program with 
IR2 set to the location of the sysuni entry for the re- 
quired system. 

iBVAL checks the channel and unit specified in the 
accumulator in the form pze channel, , unit. If 
the designation is valid, the routine will exit to the main 
program with ir2 set to point to the ucb. The sense in- 
dicators are loaded with the contents of word 1 of the 
UCB and the accumulator contains the address of the 
UCB. Specification of an invalid or non-existent unit or 
channel causes an exit with the accumulator set to zero. 

■FIND — Locate Desired System Routine 

Blocks BVOl to BV03: iri and ir4 are saved. They 
are reloaded with the location and length of the system 
name table. A comparison of the name specified in the 
input card image is made with each entry in the sys- 
tem name table. If no equal comparison is found, con- 
trol transfers to ifnd2 (Block Bvii). 
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Blocks BV04 and BV05: If the name is found in the 
system name table, the name used for comparison is 
stored in syscur as the current system name. The sec- 
ond word of the entry in the system name table is 
checked to determine if a unit was assigned to this 
system. If no unit was assigned, control transfers to 

IFND2 (Block BVll). 

Blocks BV06 and BV07: If a unit is assigned to the 
system, the system position is picked up from the sec- 
ond word of the entry in the table and stored in syspos. 
The file position is also saved temporarily to be used 
in setting up the parameters for subroutine rgtpo. The 
location of the sysuni entry for the required library 
unit is calculated, and this entry is checked to deter- 
mine if a unit has been assigned. If no unit has been 
assigned, control transfers to ifnds ( Block bvi3 ) . 

Blocks BV08 to BVIO: If a unit has been assigned to 
the SYSUNI entry, the file number is placed in the dec- 
rement of the accumulator. Subroutine rgtpo is used 
to position the required library unit in front of the 
desired system. iRi and ir4 are restored and control re- 
turns to the m-ain program at one location after the 
instruction that called this subroutine. 

Blocks BVll and BV12: If the system name specified 
on an input card is not contained in the system name 
table or if no unit is assigned to a valid specified system, 
the system name is stored in the following error mes- 
sage, ****** UNKNOWN SYSTEM. The addrcss of the 
message is placed in the mq and control transfers to 
IBERR (Block BJ14) for an error print-out. 

Blocks BV13 and BV14: If no unit has been assigned 
to the SYSUNI entry, the system name is stored in the 
error message, ****** no assignment made. The ad- 
dress of the message is placed in the mq and control 
transfers to iberr (Block bjm) for an error print-out. 



IBVAL - Validate Channel and Unit 
Designation Routine 

Blocks BV15 and BV16: iri and ir4 are saved and 
iRi is loaded with the complement of the channel num- 
ber. The contents of iri are tested to determine if a 
valid channel (1 through the highest available) has 
been specified. If an invalid channel is specified 
(greater than the highest number available), control 
transfers to Block bv31 prior to returning to the main 
program. 

Blocks BV17 to BV20: If the specified channel is 
legitimate, the unit designation is loaded into ir2 to be 
checked for validity. If the designation is greater than 
16, indicating a possible disk or Hypertape unit, control 



determine whether it is greater than zero and less tnan 

lU. /V Uiiil uesignaiiun c;Lj[ua.ji l\j z,chj la ii.j.ogcij. <xi.i\x t,ttu.jL.j 

a transfer of control to Block bv31 prior to returning to 
the main program. A unit designation greater than 10 
indicates a possible card machine and control transfers 
to IBV3 (Block BV26) for additional checking. A unit 
designation less than 10 indicates a tape unit. The total 
number of units available on the channel is calculated. 
The number of card units available is added to the unit 
location desired. This new value is in ir2 and is trans- 
ferred to IR4 in complement form. The total number of 
units available is added to ir4; if the result is between 
zero and 12, a vahd tape unit exists on the channel. If 
the unit does not exist (iR4 greater than 12), control 
transfers to Block bv31 prior to returning to the main 
program. 

Blocks BV21 and BV22: If a vaHd tape unit exists 
on the channel, the location of the ucb is calculated and 
placed in ir2 in complement form. This location also re- 
mains in the address portion of the accumulator in true 
form. 

Block BV23: The contents of word 1 of the ucb are 
loaded into the sense indicators. 

Block BV24: This is the exit from the ibval routine. 
iRi and IR4 are restored and control returns to the main 
program. 

Block BV25: If a possible disk unit is indicated, the 
desired address is compared with the first word of each 
UCB for this channel. If a vahd comparison cannot be 
found, control transfers to Block bv31 to exit from the 
routine. If a valid comparison is found, control trans- 
fers to Block BV30 with ir2 set to point to the desired 

UCB. 

Blocks BV26 to BV29: Entry is made to ibv3 with ir2 
equal to some value between 1 and 6 indicating a pos- 
sible card machine. ( The value in ir2 is the result of an 
initial setting of 11 to 16 because the transfer to ibv3 
caused m2 to be reduced by 10. ) ir2 is now tested to de- 
tprminp if it is trreater than 3. If it is greater than 3 
(indicating an original value of 14 to 16 which is 
illegal), control transfers to Block bv31 to exit from the 
routine. When the contents of ir2 (1, 2, or 3) indicate 
a legal card device, the number of devices and the ad- 
dress of the first ucb are picked up from the proper 
UCB locator. The address is placed in ibv4 to be used 
in checking for the desired unit and the number of de- 
vices is placed in ir4. ir4 is then tested to determine if 
there are any card devices on the channel. If there are 
none, control transfers to Block bv31. If there are legal 
card devices on the channel, the unit nuipber in ir2 is 
used to form the unit address to be used for comparison 
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When the designation is 16 or less, ir2 is tested again to the channel are tested to determine if the machine 
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indicated in ir2 exists. If it does not exist, control 
transfers to bv31. 

Block BV30: If a legal card device or disk unit is 
indicated, the location of the ucb is placed in the ac- 
cumulator. Control then transfers to Block bv23. 

Block BV31: This block is entered whenever there 
has been an illegal unit specified or an illegal channel 
specified. The accumulator is cleared and control trans- 
fers to Block BV24 to exit from the routine. 



INITUS — Initialize System Tape Usage Routine 

Subroutine initus is used to initialize the routines re- 
quiring the following system tapes: syslbi, sysoui/2, 
SYSCKi/2, and sysut4. It will also initiaHze the loader for 
disk if SYSLBi is assigned to disk. 

Entry to the subroutine is made with ir2 pointing 
to an indirect reference to the ucb for the unit desired. 
If IR2 is pointing to a reference word with a zero ad- 
dress, indicating that there is no unit assigned, a further 
check will be made to determine if the unit should be 
a dump tape. If the unit being initialized is a dump 
tape and no unit has been assigned, sysdmp and location 
00002 will be altered to bypass dump requests. An on- 
line message will also be printed to inform the operator 
that dumps cannot be taken. 

For a unit that is assigned to tape, the density will 
be set as indicated by the sign of the sysuni entry. The 
I/O addresses in the routines requiring this unit will be 
set for the proper unit. 

If the unit is syslbi and assigned to disk, the disk 
orders will be generated and the channel codes will 
be set up for disk in sysldr. 

The return from this subroutine is via i, i. 

Blocks BWOl to BW03: Entry is made with ir2 point- 
ing to a UCB locator in the sysuni table. If the address 
of this locator is zero, indicating that there is no unit 
assigned, control transfers to initls ( Block bwo9 ) . If a 
unit is assigned, the availability and no-repositioning 
flags are reset. Bits 4 and 11 of the unit address are 
checked to determine if the unit is disk. If the unit is 
disk, control transfers to dinlbi ( Block bwi8 ) . 

Blocks BW04 to BW06: If a tape unit is assigned, 
subroutine ndsel is used to set the density of the de- 
sired unit according to the sign of the entry in the 
sysuni table. ir2 is tested to determine if the unit being 
referenced is syslbi. If the unit is syslbi, control trans- 
fers to iNiTLi (Block BW15). If the unit is not syslbi, 
IR2 is tested next to determine if the unit is sysut4. If 
the unit is sysut4, control transfers to initl2 (Block 

BW16 ) . 



Blocks BW07 and BW08: If the assigned tape unit is 
neither syslbi nor sysut4, ir2 is tested to determine if 
the unit could be one of the system output units (i.e., 
SYSOui, SYSOU2, SYSCKi, or SYSCK2 ) . If it is not one of the 
output units, control returns to the calling program via 
1, 1. If the assigned unit is any one of the output units, 
the no-repositioning flag is set and control returns to 
the calling program via i, i. 

Blocks BW09 to BW14: If a unit is not assigned, ir2 
is tested to determine if the unit is either sysoui or 
SYSUT4. If it is neither of these units, control returns to 
the calling program via i, i. If it is one of these units, 
IR2 is tested to determine which one it is. If the unit is 
SYSOUI, subroutine prout will be used to print an on- 
line message indicating that sysoui is unassigned, and 
no dump can be taken. If the unit is sysut4, a similar 
message is printed. Location sysdmp in the communi- 
cations table, and location 00002 are modified to by- 
pass the dump and transfer directly to the loader. Con- 
trol then exists to the calling program via i, i. 

Block BW15: This block is entered from Block bw05 
if the unit specified is syslbi. All the i/o commands in 
the loader (calibd will be set up to reference this unit 
and control will exit to the calling program via i, i. 

Blocks BW16 and BW17: These blocks are entered 
from Block bw06 if the assigned tape unit is sysut4. All 
the I/O commands in the dump caller are set up to 
reference this unit. The linkage to the dump caller is 
placed in sysdmp in the communications table, and in 
location 00002. Control exits to the calling routine 
via 1, 1. 

Blocks BW18 to BW22: These blocks are entered if 
the unit assigned is disk. If the assigned disk unit is 
not syslbi, control exits to the calling routine via i, i 
without performing any setup operations. If the unit 
is syslbi, iRi and ir2 are saved. The disk orders for the 
system loader are generated and stored in the sysldr 
routine. The sms masks and the channel codes are setup 
in SYSLDR, and iri and ir2 are restored. Control exits to 
the calling program via i, i. 



SYUCU — Symfao//c Unit Conversion Routine 

Chart bx shows the syucu routine used to convert the 
symbolic unit designated in columns 16 to 18 of the 
input card image to the form: pre chan, ,unit. 
Exit is made from this routine with this new form 
in the accumulator and in location latun. The return 
is made via 2, 4 for a normal return, and via i, 4 for an 
error return if the unit specified is illegal. 

A prefix of mze indicates a model iv or vi tape drive. 
If the unit is one that is attached to a 7909 channel, the 
unit address is in a compressed form. This compressed 
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lOmi iiiuicates trie cnannei, aevice, inierrace, access, 
and module. 

Blocks BXOl to BX05: The symbolic unit designation 
is picked up from the input card image and placed in 
the MQ, The channel letter ( if the unit is tape or disk ) 
is placed in iri. If the unit is a card machine, mi will 
contain either an "R" or a "P". iri is tested to determine 
if the value of the channel letter is less than an "A". If 
it is, indicating that the channel designated is numeric 
or one of certain special characters, control exits to the 
calling program via i, 4. 

In the process of testing mi for a channel designation 
lower than "A", mi is reduced by an octal 20 if the 
channel designation was "A" or higher, mi is now tested 
to determine if the present value lies above 26 octal, 
which would indicate an original letter of "F' or 
higher. If the letter was "P" or higher, control transfers 
to SYUC5 ( Block BX12) to check and determine if a card 
machine was specified. If the specified designation is 
lower than "P", mi will contain a number from 1 to 26 
for the letters "A" through "O" which might have ap- 
peared on the input card. A channel specification 
higher than "H" but lower than "O" will be permitted 
by this routine, but will be indicated as an error by 
the mvAL routine which is called immediately after this 
routine returns to the main program. 

The second character of the symbolic designation is 
placed in ms. m2 is tested to determine if this character 
is numeric. If the character is not numeric, control 
transfers to syuc6 (Block exit). 

Blocks BX06 to BX09: m2 is tested to determine if the 
unit specified is 0. If the unit is 0, ms is reset to 10. The 
model designation is picked up from the input card 
image and tested to determine if the model type speci- 
fied is model ii or v. If it is model n or v, control trans- 
fers to SYUC3 ( Block BXio ) . If it is not model ii or v, the 
"F' bit is set in the accumulator, to indicate model iv, 
and control transfers to Block bxii. 

DUJCK oj\.xy: ixie accumulator is cieareu. inis is re- 
quired to remove any prefix or tag. The only case 
where a prefix should be present is if the unit specified 
is not a model ii or v tape unit. In this case, this one 

incfriir>fir4-n \i7ili r\a \^\7r\nccaA 

Block BXll: The contents of latun are set up as 
follows: The prefix is taken from the accumulator and 
would be minus for a model iv or vi tape drive. The 
decrement is taken from m2 which contains the unit 
number; and the address is taken from mi which con- 
tains the channel number. Control exits to the calling 
program via 2, 4 for a normal return in this case. 

Elnrksi BXJ2 to BX16: mi is tested to determir^e if ?» 
"P" or an "R" was specified as the first character to 
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1, 4. If a "P" or an "R" is specified, the second character 
of the designation is compared with the characters "R" 
"U", and "D". If no comparison is found, control exits 
to the calling program via i, 4. If a valid letter is found, 
the unit number will be calculated and placed in m2, 
(i.e., 11 for EDX, 12 for pux, and 13 for prx). The chan- 
nel letter is then shifted out and reduced by an octal 
20 and placed in mi. Again, an invalid letter that is 
higher than "H" will not be detected now, but will be 
found in the mvAL routine used later in the calling pro- 
gram. A numeric or special character lower than "A" 
in the bcd representation within the machine will cause 
the error exit to be taken and a return to the calling 
program via i, 4. Otherwise, control transfers to syucs 
( Block Bxio ) to set up a normal exit via 2, 4. 

Blocks BX17 to BX19: If a possible disk or Hypertape 
unit is indicated, the channel number is stored tem- 
porarily in SYUC6 (address), after being shifted left 5 
places. The characters denoting access are shifted into 
the accumulator, and ma is tested to determine if the 
type unit specified is greater than "D". If the type is 
greater than "D", control transfers to syuct (Block 
BX23 ) . If the type is not greater than "D", m2 is tested 
to determine if the exact character is "D". If it is not a 
"D", control exits to the calling program via i, 4. 

Blocks BX20 to BX22: If the type unit specified is 
"D" (disk), mi is loaded from the address portion of 
the accumulator. It is tested to determine if an access 
greater than 1 was specified. If there was a specifica- 
tion other than or 1, control exits to the calling 
routine via i, 4. If the access designated was legal, the 
designation will be ORed with the channel designation 
temporarily stored in syuc6. The next word from the 
input card image is loaded into the mq and the first 
character denoting the module is shifted into the ac- 
cumulator, and then loaded into m2. m2 is tested to 
determine if a proper module has been designated. 
Any character higher than a "9" will cause an exit to the 
calling program via i, 4. A legal character will be OR'ed 
with the compressed disk address being constructed in 
SYUC6. The interface designation is tested in the mq, 
anu, ii requireu, tue interface uit wiu oe orcu to tiiC 
word in the accumulator. Additional bits are added 
to the constructed word to indicate a 7909 channel and 
a disk device. This constructed word is now in m2 and 
control transfers to syucs ( Block bxio ) . 

Blocks BX23 to BX25: m2 contains the second char- 
acter of the symbolic unit designation. At this point it 
is known that the character is higher than a "D". m2 is 

fpcf-prl tn rlptfrrnirif" if the CnafSCtPr IS RT? "W '. Tf the 

character is not an "H", control exits to the calling pro- 
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gram via i, 4. If the character is an "H" (Hypertape), 
the unit number is in the accumulator and is loaded 
into IB2. IR2 is tested to determine if a legal tape num- 
ber has been specified. If a legal tape number (0 
through 9 ) has not been specified, control exits to the 
calHng program via i, 4. For a legal tape number, the 
number will be appended onto the channel number 
that is temporarily stored in syuc6. The character de- 
noting interface is tested in the mq, and, if required, 
the interface bit will be ORed to the compressed ad- 
dress now in the accumulator. This compressed address 
is placed into ms and then incremented to add the bit 
denoting a 7909 channel. Control then transfers to 
SYUC3 ( Block BXIO ) . 



RSYUR — Remove Unit from Availability 
Chain Routine and Sample Availability Chain 

Chart BY shows the rsyub routine which removes a unit 
from the availability chain. It is entered with the loca- 
tion of the ucB for the unit to be removed located in the 
address of the accumulator. All index registers are pre- 
served, and if the accumulator address is zero, the exit 
will be taken from the routine with no work performed. 
Chart BY also shows the makeup of a typical channel 
availability chain. 

RSYUR Routine 

Blocks BYOl to BY03: Index registers 1, 2, and 4 are 
saved, and the location of the desired ucb is saved in 
the compare cell, rsys. rsys is tested to determine if 
there was an address specified in the accumulator on 
entry. If the accumulator address had been zero, con- 
trol returns immediately to the calling program via 
1, 4. If there is a valid address in rsys, the address of 
the desired ucb is loaded into ir2 to obtain the unit 
address. The channel is extracted from this address, 
and used to calculate the availability chain locator for 
the desired channel. 

Blocks BY04 to BY06: The address in the availability 
chain locator (i.e., ucaa for channel A) is compared 



with the address stored in rsys. If the addresses are 
equal, control transfers to rsys ( Block by07 ) to remove 
the unit reference from the chain. If the addresses are 
unequal, the address just compared to rsys is loaded 
into IR4 to be used in obtaining the next ucb in the 
chain. This address is tested to determine if the end of 
the chain has been reached ( i.e., last address is zero ) . If 
we are at the end of the chain, control transfers to rsys 
(Block BY08). If the end of the chain has not been 
reached, control returns to rsyi for another comparison 
of this new address with the address in rsys. 

Block BY07: When a ucb is found which has an ad- 
dress which compares with the one desired, the address 
of the unit immediately after the one to be removed is 
picked up and placed in the prior ucb or the locator. 
The prior ucb or locator was originally pointing to the 
unit that is being removed. 

Block BY08: After finding the specified unit in the 
availability chain or after checking all units in the chain 
without success, the index registers are restored and 
control exits to the calling program via i, 4. 



Sample Availability Chain 

The sample on Chart by shows the chaining of ad- 
dresses in the availability chain locators and the avail- 
ability chain itself. 

ucwAv indicates the location of a table of availability 
chain locators (i.e., ucaa, ucbb, etc.). This table is 
comprised of one entry for each channel, and its length 
may be found in the decrement of ucwav. 

The address portion of each entry in the locator table 
contains the address of the first ucb in the availability 
chain. The address portion of word 1 of this ucb con- 
tains the address of the next ucb in the chain. The ad- 
dress portion of word 1 of the last ucb in the chain is 
zero. If the chain contains no entries, the address por- 
tion of the locator (i.e., ucaa) is zero. 

Within the chain, the addresses of the ucb's will not 
necessarily be in the order in which they appear in 
memory. 
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CARD BITS 

TEMPORARILY 



GNXCH X 2 

» STEP ALL 

• ADDRESSES 
•AND INDICATORS 

• FOR NEXT 

• CHANNEL 



IUEF2 X 

•••♦•C5^*»»^^^^ 

• RESTORE IR2 
* 

(• PUT ADDRESS 

• OF UCW IN 

• SYSUNI TABLE 



»»»»D2^»^»»^»* 

SAVE 

ENTRY KEYS 

AND 

SENSE SVlITCH 

SETTINGS 



»•* •OS »•••»••• 

GENERATE 

TAPE 

UNIT CONTROL 

BLOCKS FOR 
THIS CHANNEL 



D5 • • 29 
DISK • 



» SYSLEl 

ON 
» DISK 



► DISK 
» UNIT CONTROL 
•BLOCKS FOR IFl 
• AND ACCESS 



SET DENSITY 

INSTRUCTIONS 

TO -NOP- 



REHOVe FROM 

AVAILABILITY 

CHAIN 



SETUP SYSLBl 

TO LOAD IN 

FrtOM DISK 



> 

' RESTORE IR2 

^ SAVE IRl 



»»»»G2^»«»^»^^* 

SAVE ORIGINAL 

SYSLBl AND 

DISK LIMITS 

IN CLCLBl 

ANO CLOLBl+l 



• GENERATE 
' DISK 

» UNIT CONTROL 
'BLOCKS FOR IF2 

» ANO ACCESS 



lUEFl X 

• PICKUP ONE 

• SYSUNI ENTRY 

• SAVE IR2 



INITIALIZE 

SYSTEM TAPE 

USAGE 



HOUSEKEEP 
ALL UCW 
BLOCKS 



• VALIDATE 

• CHANNEL. UNIT 

• FORM L<UCIfl() 



SET SYSUNI 

POINTER FOR 

NEXT UNIT 



iGCDE X oa 

»»*»»J2^^**^^^^^^ 
•SET FOR NUMBER • 

• OF CARD » 
,X^ UNIT CONTROL • 

• BLOCKS FOR • 

• ONE CHANNEL • 



LAST 
UNIT 
DONE 



»•»• (NEXT 
3B • CHART ) 
A2^ 



LOAD MO WITH 

INDICATION OF 

CARD MACHINES 

THAT EXIST 



Chart BA. Cold Start and Initialization, Sheet 1 
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BB 



RESTORE 

SET DENSITY 

INSTRUCTIONS 

IN ICEX 



t»»A4»*« 



13 



PLACE * 
■INITIAi. ADDRESS* 

• IN DECREMENT » 

• OF WORD 1 » 
' OF UCB * 



GNXUN X 
*><*«A5***>*il 

• SAVE IR2 



» MOVE * 
» SYSNAM TABLE » 
»T0 WORKING AREA* 



<I**«*B4* ******** 
•EXTRACT ACCESS 
*ANO MODULE AND 
» EXPAND TO BCD 

• -FORM DAM- 



SET 

PROPER BIT 

FOR UNIT TYPE 



»***C2********* 

REARRANGE NEW 

SYSNAM TABLE 

TO NORMAL 

WORKING 

FORMAT 



*««C4 ******** 

CONVERT ALL 

BCD ZEROES 

TO -12- 



> SET FOR EXIT 
niF IRESTORE) 



IF SRESTORE 

X 
***** IBSYS 



COMPUTE 80AH 

AND STORE IN 

UCB WORD 3 



*«**D5*******« 

ENTER IN 

AVAILABILITY 

CHAIN IF 

ATTACHED 



»»*»*E2** *»***»»« 

* SET « 
*INPUT SWITCH IF* 
*SENSE SWITCH 1 « 

* IS UP FOR * 

* TAPE INPUT « 



K*»»*E4 ********** 
•PICKUP ORIGINAL* 
» ADDRESS FROM • 
• DECREMENT • 
» OF UCB • 
« WORD 1 » 



**>**E5********** 

•SHIFT MODEL AND* 
•ATTACHMENT BITS* 
» AND PICKUP • 

• NEXT UNIT * 

• ADDRESS * 



•••*F2»*****»** 

PICKUP PROPER 
SYSTEM INPUT 

UNIT AS 
INDICATED BY 
INPUT SB ITCH 



*»*F5*******« 

SET FOR 
NEXT UC* 

RESTORE IR2 



•***G2********* 
SET INTERRUPT 

SWITCI- IF 

INPUT SWITCH 

INDICATES 

CARD INPUT 



* ASSIGNED 

AND 

* ATTACHED 



X 09 

•***J2********** 

MAKE UNIT * 

AVAILABLE * 

AND SET * 

TAPE POSITION * 

POSITIVE * 



* (CARD) 


*PROUT CW81 


SENSE » DOWN 


*—*-*—*—*-*—»-*- 


SWITCH * 


.X* PRINT 


1 * 


* -CONFUSED- 


* 


* MESSAGE 


* ♦ 




*UP 


^ 


.(TAPE) 


• 


X 


• 


***** IBNOIN 


^ 


*BC * 


^ 


* D2* 


X 1 


* * 




* 


•STOP CTA4 




•-»-*-*—»-*—♦—♦_ 




• DEAD 




• STOP 




* ROUTINE 



Chart BB. Cold Start and Initialization, Sheet 2 
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8C 



set iH2 *=os 

CARD INPUT 
UNIT 



POSTING ». 



»««»«a2 ******** 

* SET IR2 FOR 
<» TAPE INPUT 

* UNIT 



CARD 

READER 

EOF 



I BONO 23 

«««»-»B5 ********** 

* SET IR2 * 

* TO leCDIN » 
<* FOR HOLLERITH *. 

* CONVERSION » 
» EXIT * 



ADDRESS 
OF UC* 
TO IR4 



INTERRUPT 

SWITCH 

ZERO 



»tt»C5******* 

SET IR2 

TO IBRET 

FOR RETURN 

TO CURRENT 

SYSTEM 



X 




IBNOIN X 


1 » * 


05 


*»*«*D2******* 






» 


ANY 


* NO 


» LOAD HQ WITH 


INPUT 


*••••• 


...X* SYSINl 


UNIT 


» 


* IN BCD 



»>D3*******<l 

SAVE IR4 



INITI AH ZE 

SYSTEM TAPE 

USAGE 



SET IBWAT 

TO WAIT 
FOR TRAP 



»»»»»J14 
► PUT ADDRESS 
»0F TAPE SELECT 
» ROUTINE IN 
» UCB WORD 2 
» -IBOF- 



»»«**G2********* 

* PUT ADDRESS 
*0F CARD SELECT 

♦ ROUTINE IN 

• UCB WORD 2 
» -I80N- 



ASSIGN 

CHANNEL 

PRIORITY 



WAIT 

FOR 

TRAP 



SPRINT » 

* CONTROL CARDS * 
» NEEDED • 



OPERATOR 

ACTION 

PAUSE 



•••G3*»*»»**« 

RESTORE IR4 



IBSPL X 3 
««*»*E4* ******** 
» SET IR2 
• TO LOCATE UCW 



PUT lORT 
COMMAND 
IN RCHX.t 



UNI T 
ADDRESS 
TO RDS 



•»»H4*»»***' 

RDS 

XEC RCHX.I 



E5 * * 25 



li*FS******* 

SET IR2 

TO IBTPIN 

FOR 

DIRECT 

EXIT 



G5 » * 27 



TAPE EOF 



|>*««*H5*******< 

* SET 

» EXIT ADDRESS 



CLEAR UCW 

ACTIVITY 

INDICATOR 



Chart BC. $IBSYS card routine 
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BD 



PICKUP 

ORIGINAL 

SYSLBl 



VALIDATE 

CHANNEL. UNIT 

FORM LtUCW) 



t****C2* ********* 

* RESTORE ORIG • 
'SYSLBl AND ORIG* 

• DISK LIMITS » 
»IN CASE SYSLBl » 
» WAS DISK • 



SET 

NO DESTROY 

TAPE POSITION 



SET IR2 TO 

COMPLEMENT OF 

L(UC») 



K***1tO^* ******** 

•SAVE INTERRUPT 
•SWITCH SETTING 



INITIALIZE 

SYSTEM TAPE 

USAGE 



l«««»E4**« ****** 

' SAVE 

> CARDS OR TAPE 

> MODE 



SET SYSLOR 

FOR 

SYSLEl 



**«F4»«*»««4 
MOVE IBNUC 

EXCEPT 
COLD START 

TO 
LOWER CORE 



SETUP RETURN 

FROI' 

CALIBl 



I «»»*G4 ********* 

' SET 

I COLD START 

'INITIALIZATION 

' SWITCH 



CALL 

IBSLP 

INTO MEMORY 



>**H4>*****4 

SET 

IBSYS 

AS EXIT 

FROM 

COLO START 

*«•«***•«*«« 



Chart BD. $RESTORE card routine 
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Bb 



I BCD IN 

•••»»A1 
»RHBCD 



IBTPIN X 




A2 » • 02 




* » 




• SKIP • YES 








« REQUEST » 


X 


« « 


»«*** 


♦ # 


•BU ♦ 


» 


♦ A5» 



PRINT 

CONTROL CARD 

ON-LINE 



PICKUP 

CONTROL 

OPERATION 



'IS CONTROL 
OPERATION 
f IN TAELE 



SAS 

SATTAC 

SCARDS 

SDATE 

SDETAC 

SENOFI 

SEXECU 

IIBSYS 

»UNITS 

SPAUSE 

»RELEA 

SREMOV 

SRESTO 

SREMIN 

»STOP 

ISWITC 

IT APE 

SLIST 

SUNLIS 

SIBEDT 



IBASC 


» 
* 


BM 


B2 


IBATC 


* 


BF 


A2 


IBCCC 


J 


BJ 


E2 


I BOAT 


« 


BJ 


C2 


IBDTC 




BF 


A4 


IBWEF 


« 


BH 


A3 


IBXCC 


« 


BG 


B2 


CALIBl 


* 


BC 


Al 


tBUNT 


« 


BL 


Bl 


IBP AC 


* 


BJ 


FI 


IBREL 


I 


BM 


A2 


IBRUN 


• 
* 


BH 


A« 


IBRES 


» 


BD 


A 2 


IBREW 


» 


BH 


A2 


IBSTP 


• 


BJ 


Al 


IBSWC 


I 


BK 


A2 


IBTCC 


« 


BJ 


H2 


IBLIS 


* 


BJ 


HI 


IBUNL 


* 


BJ 


K2 


IBEDT 


« 


BN 


Al 



• COMMENT CARD 



PRINT 

ILLEGAL CARD 

MESSAGE 



TURN 

LIST S*ITCH 

OFF 



Chart BE. Control card interpretation routine, IBCDIN/IBTPIN 
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BF 



IBATC X 01 
•*»«*A2* **•***•*< 

•SYUCU BXAl* 

» CONVERT « 
• SYMBOLIC UNIT < 
•TO CHANNEL UNIT« 



IBDTC X 13 
••*>*A4 ********** 

*SYUCU BXAl* 
1 ,4«_»_»-«_»_»-»-»-» 

* CONVERT * 

ILLEGAL * SYMBOLIC UNIT • 
DESIGNATION *T0 CHANNEL UNIT* 

.2.4 



I «»**B4******^ 



VALIDATE 

CHANNEL. UNIT 

FORM LCUCVK) 



VALIDATE 

CHANNEL, UNIT 

FORM L(UCW) 



STOSE 

L(UCW) IN 

LATUN 



**«*«C5**»*** 

* STORE 
C* ADDRESS 

• AT LUCAC 



SET * 

MODEL TYPE *X 
IN INDICATORS • 



SET 
NOT AVAILABLE 

AND 
NOT ATTACHED 



t***El ***»**»»* 

SET 

NOT AVAILABLE 

AND 

ATTACHED 

IN INDICATORS 



**»**E5** 



(**F1******> 

REPLACE 

UCW 

WITH 

SENSE 

INDICATORS 



»—•—*—*—*—*—*—*- 
» REMOVE UNIT 
»FROM AVAILABLE 
* UNIT CHAIN 



>**a2*******< 

PICKUP 
CHANNEL NO. 

FROy 

SENSE 
INDICATORS 



PICKUP 
SYSTEM UNIT 
REFERENCE 



SET FOR 

NUMBER OF 

SYSTEM UNITS 



SET IRl 

TO 

-(CHANNEL NO. ) 



IS IT 

EQUAL TO 

LUCAC 



» REMOVE UNIT 
»FROM AVAILABLE 
» UNIT Cf-AIN 



|***«J4 «««*****• 

« CLEAR ADDRESS 

• FROM SYSTEM 

• UNIT TABLE 



INSERT THIS 

UNIT AT TOP 

OF CHAIN 



LAST 
SYSTEM 

UNIT 



Chart BF. $ATTACH and $DETACH card routines 
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IBXCl X 

• SET -L(UC»I) 



INITIALIZE 

SYSTEM TAPE 

USAGE 



•PLACE CONTENTS » 
•OF -(CHANNEL-! )» 
• IN IH2 • 



INITIALIZE 

SYSTEM TAPE 

USAGE 



M ****DA* ******** 

•SET UP ALL I/O 
« COMMANDS IN 
» CALIB2 



• PLACE SYSTEM 
i* NAME IN 

• ACCUMULATOR 



IS NAME 

iN D5YSNM 
TABLE 



MOVE 

SVSTEW NAME 

TO SYSCUR 



MOVE DORG 

TO DECREMENT 

OF SVSPOS 



•••■•HS********** 

► HOVE POSITION • 
f IN OSYSNM TO • 
t ADDRESS OF • 
» SYSPOS » 
t » 



t****jS****»**** 

• SET DECREMENT 

• OF SYSLDR 

• TO LOCATION 

• OF SYSLBl 



Chart BG. $EXECUTE card routine 
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BH 



► SET IRl 

» TO REVlIND 

» CODE 



SET IRl 

TO ENDFILE 
CODE 



SET IRl 

TO UNLOAD 

CODE 



STORE IRl AS 

NDSEU CODE, 

PICKUP SYSTEM 

UNIT NAME 



•>•»• IBASl 



IS NAME 

IN SYUNAM 

TABLE 



• HAKE 

• UNIT 

• AVAILABLE 



PERFORM 
SPECIFIED 
FUNCTION 



X 09 
*««*«G4 ***•*«•*** 

• SET IRl • 

• TO -LIUCW) • • 

• PICKUP TAPE • 

• POSITION • 



UNLOADED 
OR NOT AT 
LOADPOINT 



DENSITY MODE 
(SYSUNI SIGN) 

TO NDSEL 
CALLING 

SEQUENCE 



PERFORM 
SPECIFIED 
FUNCTION 



Chart BH. $REWIND, $ENDFILE, and $REMOVE card routines 
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BJ 



CARD 

PRINTED 

YET 



LOAD MQ WITH 

LOCATION 

OF MESSAGE 



X 01. 1 
ft»»»«Bl »»»»*♦»»»* 
•PROUT CWBl* 
»-♦-»-»-»—»—»-»-» 
» PRINT »... 
• CONTROL CARD • 
» ON-LINE • 



LOAD MQ BITH 

LOCATION 

OF MESSAGE 



PICKUP 

DATE 

FROM CARD 



LOAD MQ WITH 

LOCATION 

OF MESSAGE 



CARD 

PRINTED 

VET 



PRINT 

5NTR0L CARD 

ON-LINE 



IBCCC 

«»«»»E2****»*** 
» CLEAR 

• INPUT SWITCH 
C» TO SETUP 

• FOR CARDS 



SET 

INTERBUPT 

SWITCH 



OPERATOR 
ACTIOr-i 

PAUSE 



X 
HI » • 


09 


IBTCC X 
>>**>H2«<«< 


CARD 

PRINTED 

YET 


• YES 


• SET 

• INPLT 

• SWITCH 



PRINT 

CONTROL CARD 

ON-LINE 



f PRINT DESIRED • 
•MESSAGE (RES TART* 
• INSTRUCTIONS) » 



OPERATOR 



»*H3*»*****<l 

SIMULATE 

-SCARDS- 

CARD 



*>•»• IBSYS 
• BC ♦ 
» Al» 



TURN 

LIST SWITCH 

OFF 



Chart BJ. Miscellaneous card routines and error routines 
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BK 



PICKUP 

1ST SYSUNI 

SPECIFIED 



IS IT IN 

SYSUM 

TABLE 



PICKUP 

2ND SYSUNI 

SPECIFIED 



•SWITCH ENTRIES 

• IN DISK LIMIT 

• TABLE 



IS IT IN 

SYSUM 

TABLE 



» SWITCH 
•UC« ADDRESS IN 
» SYSTEM UNITS 
• TABLE 



IS EITHER 
SYSUM 
SYSL61 



COMPUTE 

INDEX TO 

1ST SYSUNI 



►»»»F2»»»»»»»»* 

HORD 1 OF BOTH 

UNIT CO^TROL 

BLOCKS TO 

INDICATORS 

-OSI- 



INITI ALIZE 
SYSTEM TAPE 

USAGE 



COMPUTE 

INDEX TO 

2ND SYSUNI 



t»»»»H2»»*»»»»»» 
►WORD 1 OF BOTH 

► UNIT CONTROL 
» BLOCKS TO 

► INDICATORS 

► -ERA- 



INITIALIZE 

SYSTEM TAPE 

USAGE 



ARE 
BOTH 
DISK 



Cliart BK. $SWITCH card routine 
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BL 



IBUNT 
»PROUT 



nf»A3»»«« 



PRINT 
MAP 

HEADING 



STORE 

UNIT 

DESIGNATION 



PICKUP 

UNIT 
ADDRESS 



r***Bl<*>****< 

PICKUP 

AN ENTRY 

FROM 

SYSTEM UNITS 

TABLE 



PRINT 
MAPPING 
MESSAGE 



CONVERT 

TO 

SYMBOLIC 



LAST 

UC* 

DONE 



LAST 
UNIT 
DONE 



fr««»01 «»»«««« 

PUT BLANK 

UNIT CODE IN 

TEMPORARY 

MESSAGE 

STORAGE 



PRINT HEADING 

FOR ATTACHED 

UNI TS 



ANY 

UNITS 

PRINTED 



PICKUP 
-NOME- 
IMAGE 



X 14 

»SET iR2 TO NO. • 
•OF UNIT CONTROL* 
» BLOCKS • 
» CLEAR • 
» MAP SWITCH • 



I BMP I X 
**«**F2<i««*><>> 

» PICKUP ONE 
» UNIT CONTROL 
» BLOCK 
» WORD 1 



CLtAR 

MAP 

SWITCH 



»»»»»G1»»»»*»»»» 

» CONVERT AtiO 
•STORE DORG AND 
» DEND IN 
► PRINT IMAGEi 
» PICKUP -THRU- 



ASSIGNED » Y-S 
TO «.... 

SYSUM * 



• PRINT INTER- 
•SYSTEM RESERVE 
► UNIT HtADlNG 



' DETERMINE 

• DENSITY AN3 
•PICKUP -HIDEN- 

• OR BLANKS 



ATTACHED 
AND NOT 

RESERVED 



PICKUP ONE 

UNIT CONTROL 

BLOCK 

WORD I 



IBMP5 X 
i>«»>>jl«»*»*»«f 

• STORE BLANKS 1 
» -HIDEN-, OR 

i' -THRU- 

• PICKUP UCB 
» WORD 1 



J3 • • 28 



P ICKUK 

UNIT 
ADDRESS 



CONVERT 

UNIT TO 

SYMBOLIC 



PRINT 

MAPP ING 
MESSAGE 



Chart BL. SUNITS card routine 
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BM 



•COMPARE* 
* DENSITY » 
SPECIFICATION 



PICKUP 
SYSTEM 

NAME 



SET 
ACCUMULATOR 
PREFIX PLUS 

FOR 
LOW DENSITY 



SET 

ACCUMULATOR 

PREFIX MINUS 

FOR 
HIGH DENSITY 



IS NAME 

IN SYLNAM 

TABLE 



»PLACE PREFIX IN< 
► SYSUNI TABLE • 
» - FOR HIGH. • 
» + FOR LOW « 



PICKUP ORIGIN 

AND NUMBER OF 

CYLINDERS 



( IBASX ) 

LAST UNIT 

ZERO 



PUT OLD 

ASSIGNMENT 

IN IBASX 



ADJUST 
IR2 POINTER 
FOR INITUS 



IBASX 

STILL IN 

USE 



PICKUP UNIT 

SPECIFIED IN 

LATUN 



IB ASA X 2 
<l«*»«E4*****«*<< 

• CONVERT DORG 

• FROM BCD TO 

• BINARY AND 
•MULTIPLY BY 40 



IS IBASX 
A CARD 
DEVICE 



» PLACE ADOR IN • 
•SYSUNI TABLE . • 
•LOAD INDICATORS* 

• FROM SYSUNI • 

* LOCATION • 



STORE DORG IN 

DISK LIMIT 

TABLE 



• RESET NO 

• REPOSITIONING 
»FLAG. SET UNIT 
» NOT ASSIGNED 



• ••-»*G3*^^^^*^*^« 
•LOAD INDICATORS* 

• INDIRECTLY * 
» ADDRESSED FOR • 
» THIS SYSUNI • 

• LOCATION * 



'CONVERT NUMBER • 

• OF CYLINDERS 'ERR. 

» TO BINARY AND •. 

•MULTIPLY BY 40 • 



-{CHANNEL NO.) 



H3 • • 17 



» REMOVE UNIT 
•FROM AVAILABIL- 
• ITY CHAIN 



IBAS2 X 

• ••••H4**^^^^* « 

• ADD DORG, 

• SUBTRACT ( 1 ) , 

• AND STORE IN 

• DISK LIMIT 



•REMOVE UNIT IF • 
•IN AVAILABILITY* 
• CHAIN • 



• PICKUP 
<.* DENSITY 

•SPECIFICXTIONS 



ERROR 

IF ANY 

CHARACTER. 



>«**jSt**«*««« 

place unit 

In channel 

availability 

CHAIN 



Chart BM. $RELEASE and $AS card routines 
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IBEDT X 



EOTS 03 

»»»»«A2»»«*»**»*» 

» SETUP TAPE • 

« FOSITSCNEH * 

X» ROUTINE FOR • 

» NEXT FILE * 



RGTPO X 12 
••»»»A3»»»»»»»»»» 

• SAVE IR* » 



• SIMULATE • 
»SEXECUTE EDITOR* 

• IN CARD INPUT ♦ 
» IMAGE * 



TAPE 

POSITIONING 

ROUTINE 



INITIALIZE 

SYSTEM TAPE 

USAGE 



X IBXCC 



X 05 
► •••C2»»"»»»»*» 

SET IRl » 

TO COMPLEMENT • 

OF LCUCW) • 

OF SYSLBl * 



C3 » » I* 

« # 
» DESIRED • YES 

POSITION •.... 
•EQUALS ZERO* 



»»»»»D2»»*»*»»»* 

• SETUP 
•SELECT ROUTINE 
» ADDRESS 



SET IRl » 

TO COMPLEMENT » 

OF L(UCW> • 



• E3 ".X. 



E3 « • 17 



READ 

1ST RECORD 

OF FILE 



'. 1 .* 



RECORD 
IN 
YET 



>....X* E3 • 



YES 
UBXCl 



IS 2N0 

WORD 
-iBECT- 



G5 • • 25 



■» POSTING 



»»»»»H3»»»»»»* 

• SET 

* WAIT CELL 



» COMPARE 

TO DESIRED 
» POSITION 



»«>»»H5>********* 

• SET FOR NO • 
» REDUNDANCY * 

• CHECK • 

• SETUP RCHX.l • 



» DEPOSIT • 
• EDITOR NAME » 
» INTO MESSAGE » 



>••*•••>* 



CLEAR 
ACTIVi TY 
INDICATOR 



t****J5* ********* 
» * 

• GENERATE • 
» AND SETUP • 
» BINARY SELECT • 
» *ORD • 



RGT5 X 2 
«*K3**>**** 

»(THIS CELL ♦ 
» SET AS « 
. • REQUIRED) 

•EXIT / WAIT* 



l»«»*K4********** 
» * 

' SETUP • 

•TAPE POSITIONER* 
• WAIT CELL • 



•••K5«»»»»»»» 

RDS 

XEC RCHX.l 



CHART BN. $IBEDT card routine and General tape positioner routine 
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BP 



SET DECREMENT 

OF SYSTCH TO 

OORG FROM 

DISK LIMIT 

TABLE 



SYSLBl 

ON 

DISK 



DUMP X 2 
>>>A5**>***** 

» DUMP SAVE » 
•RECORD ON SAVE 
» TAPE - SYSUT4 

•lORT 0,, 13123* 



CALl X 02 

** It **sz** ******** 

* SET * 
»IR2 TO -L(UCW) * 

* AND GENERATE * 

* I/O COMHANDS * 

***************** 



****BS* ******** 

CLEAR 

LOCATION 

AND 

DISABLE TRAPS 



•REWIND AND SET 
» TAPE POSITION 
• EQUAL TO ZERO 



•••••C5*»»»^*»** 

* SAVE 

* TTR STATUS 
» AND 
•LEAVE TTR MODE 

* IF IN IT 



SAVE 

RECORD 

OUT 



t****E2* ******** 
» DISABLE TRAPS 

• AND 
•SET LOCATION 
► TO HTR TO 

• RESTART ENTRY 



SET 

DUMP 

SWITCH 



*****FZ****** 

* SET IR4 

» FOR 10 
» ATTEMPTS 



SAVE 
REGISTERS 
FOR DUMP 







16 




, ***i 


»H1^»»»»»< 










* 






STOP 


* 


YE 




CHANNEL 






* 








* 








( 


17 




• *^ 


•Jl»»»^*^» 


» 




« • 




* 




^ » 




• 




, * 


BACKSPACE 


•X.. 




. * 




• 






«»•• 


t***** 


* 






KJ • • 


18 






* * 






. NO » 


10 


• 


YE 


• • • • • 


TR 


ES 


* 


. . .. 



***G2* ******* 

RDS AND RCHA 

TO START 

READING 



• ANY « 
REDUNDANCIES 

♦ YET « 



ERROR ON • NO 
LAST WORD •... 
OR LRC » 



• INCREMENT • 
.X» TAPE POSITION • 

• BY 1 • 



TRAPPING 
TO BE 

ENABLED 



»HOVE TTR STATUS* 
t INTO DUMP » 
» ROUTINE • 



KS**^ 15 

.X^SYSTRA * 



TRANSFERS TO • 
1.0CATI0N .YES 
AND HALTS 



Chart BP. CALIBl, SYSRPT and DUMP routines 
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BR 



SYSLOH 
CALIB3 X 
A2 » 



CALLING SEQUENCE 



N=0. LOAD NEXT RECORD 
N=l, LOAD SYSREC DESIGNATED 
N=2. LOAD LOC. INDICATED IN 
DECR. OF SYSPOS 



I 






- 




=: 


»#««* 




= 




z. 


• R • 

• S » 


RESTART 


= 




= 




ENTRY 


= 


X 

**1k'k*Q2.** ******* 


= 






= 


»CLR LOCATION 
•FOR ERROR HALT 

•SAVE BCI SYSREC 
• DESIGNATION 






>»•*• 





SET IR2 
TO LOCATION 

OF UCB 
FOR SYSLBl 



CAL9Y 

•••••CI 

•CAL5Y 



•• WAIT FOR 
• CHANNEL 
RROR^ TO FINISH 



SYSTRA-2 



CAL2Y X 
•••••D2^^«^^*** 

• LOCATION FOR 

• NEXT RECORD 
» TO SENSE 

• INDICATORS 



CAL3Y 

•••••C3»*^*»»« 

• SYSTEM 
» POSITION 

<♦ TO SENSE 

• INDICATORS 



I •♦♦*C*»»** 

' SET 

I BIT 3 
I OFF 



PUT 

SENSE 

INDICATORS 

IN 
ACCUMULATOR 



CALIOY X 

••••»E1*»« 

•CAL6Y 



CALl lY 

•••••E2< 
•CAL7Y 



RESTORE CORE 

REAC 

CHECKPOINT 



WAIT FOR 

CHANNEL 

TO FINISH 



CONVERT 
TTTT 

TO BCD 



WAIT FOR 

CHANNEL 
TO FINISH 



WAIT FOR 

CHANNEL 

TO ctNtS'- 



• SEARCH SLTABL 
•FOR RECORD AND 

• GET TRACK 

• ADDRf=SS 



CAL12Y 

•••♦»FS»« 
•CAL8Y 



STORE 
DISK 

ORDER 



Chart BR. SYSLDR (CALIB3) routine 
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BS 



CALPOW X 01 
*»««»A1* ********* 

• STORE • 

• DIAGNOSTIC » 
» CHANNEL » 
»LOAD INTO SENSE* 

• INDICATORS • 



INHIBIT 

UNUSUAL END 

AND ATTENTION 

INTERRUPTS 



CAL5Y X 1 
•****A4*«******« 

• INHIBIT 

• UNUSUAL END 

• AND ATTENTION 

• INTERRUPTS 



CONTROL 

READ 

(SLTABL) 



81 ♦ » 02 

♦ I/O, » 

YES * SEQUENCE. » 

••OR ADAPTER CHK 

»0R UNUSUAL • 

» END • 



SEEK 

SPARE 

SURFACES 



CONTROL 

READ 

(LOADER) 



» 1.2 OR 



CONTROL 

WRITE 

(CHECKPOINT) 



CONTROL 

READ 

(CHECKPOINT) 



»»«E \******* 

MODIFY IR2 

FOR 

EXIT 



•SCATTER" 
» READ « 
» LOOP » 



•*«£4#«**«»»« 

COPY 
(SYSORG-COLD) 



(SEE BELOW) 



» WAIT 
AND 
•DISCONNECT 



SCATTER READ LOOP 

*************************************** 

SYSTCH-1 CPYP (INTO NEXT LOC.) 
SYSTCH WTR (OR NEXT CPY) 
SYSTCH+1 TCH SYSTCH-l 

NOTE WORD READ INTO SYSTCH 

HAS BIT 3 SET TO 1 
WHEN SEEK IS COMPLETE 



Chart BS. Disk Loader, waiting loop, an(i channel routines 
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BT 



IBRET X 



TABLE » 

TO WORKING * 

AREA • 



* POSITION 

EQUALS 

• ZERO 



»B4»»*»»»»»« 

SET 

INTSW 
PLUS 



X 11 

MODIFY » 

TABLE IN ♦ 

WORKING AREA * 

FROM EDITOR • 

FORMAT » 



INDICATES 

THE RETURN WAS 

FROM EDITOR 



» WAS « 

INTSW 

ALREADY 

MINUS 



►•••D2*» •••••»• 

SEARCH SYSNAM 

TABLE FOR 

A MATCH 

WITf- 
SYSPCS 



> PICKUP 
» SYSOUl 
' INFO 



»»E3**»»»»» 

f PUT -NO- • 

INTO IMAGE 

FOR UNIT 
DESIGNATION 



«««»»E5«*»«»« 

• PICKUP 
.» SYSINl 

• INFO 



PRINT 

ERROR MESSAGE 
SHOWN BELO* 



■••■F2** •»•«•« 

PICKLP 

SYSTEM NAME 

AND SIMULATE 

-tEXECCTE- 

CARC 



CONVERT 

UNIT TO 

SYMBOLIC 



2N0 
UNIT 
DONE 



»«ll»*Gl ««««•« 



• OPERATOR 

• ACTION 
» PAUSE 



•BCVDEC-1 

' CONVERT 
• FILE NUMBER 
» TO DECIMAL 



*«»»»G5«*>*****»« 
» 9 

' PICKUP « 
• SYSPPl « 
» INFO « 



CLEAR 

INPUT SWITCH 

TO SET 

FOR CARD 

INPUT 



CONVERT 

RECORD NUMBER 

TO DECIMAL 



PRPOS 2 1 


RNXPO X 




J4 • • 


»PROUT CWBl* 


# 


»-♦—♦—»—#—»—•—*—* 


YES • ALL 


• PRINT »X.. 


« 3 UNITS 


» TAPE » 


» DONE 


» POSITIONS • 


* 



»»♦ IBNJB 



Chart BT. IBRET and TPPS routines 
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FROM IBTPIN 
WHEN IBNCT 
IS NOT ZERO 



• PICKUP • 

• CARD IMAGE » 
•FOR COMPARISON • 

• » 



BU 



OPERATOR 

ACTION 

PAUSE 



IBNJ4 

•»«»»B3 

•PHOUT 



PRINT 
STOP BEFORE 
DESIRED JOB 



PRINT 

REQUEST FOR 

CLARIFICATION 



• SAVE SYSTEM » 
» TO BE »X 

• EXECUTED • 



PICKUP 

JOS NUMBER 

FROM KEYS 



• JOB • 
• NUMBER * 
GREATER THAN 



D4 » • 

IS 
IT SID 



.YES • JOB • 
.» NUMBER EQUALS 
* ZERO » 



1ST 

REQUEST 
( IBNJS=0) 



IBNJl X 10 
• »*»»E3*«-***>**** 
»NDSEL CLAl* 



»««•*«»*««#«««•*« 



• • 

• REDUCE • 
•-SID-CARD COUNT* 

• BY 1 • 



SAVE 

COUNT 

IN IBNCT 



'PRINT 

» PLACE SENSE 

• SWITCH 6 UP 



COUNTER 

EQUALS 

ZERO 



CONVERT 
JOB NUMBER 
TO DECIMAL 



• OPERATOR 

• ACTION 

• PAUSE 

*»*«*>»««»-»»li 



• BSR * 



*•••» IBSYS 

»BC » 
• Al» 



NOTIFY 

OPERATOR 

OF REQUEST 



PRINT • 

SYSTEM TO • 

BE EXECUTED • 



Chart BU. IBNJB and IBNJ2 (Skip Job) routines 
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II 

SIMULATE • 

-SEXECUTE- * 

CARD < 



IBSYS •••«♦ 
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» IRl AND 1R4 



»«»««*-»•«««*•*» 



IFND2 



1 1 



»Cl< 



• STORE NAME » 

• IN •> 
» ERROR MESSAGE • 

» « 



PICKUP • 

ADDRESS » 

OF MESSAGE • 



»G1 • 

♦ * 



STORE SYSTEM 

UNIT NAME 

IN MESSAGE 



f PICKUP < 

> ADDRESS • 

t OF MESSAGE * 

I « 

IBERR 



»IS NAME IN * 

SYSTEM NAME 
• TABLE • 



IFNOI X 

* STORE NAME 

• AS CURRENT 
» SYSTEM NAME 



»«»»»F2»» ■"*•»»»»« 

• PICKUP • 
•SYSTEM POSITION* 

♦ AND STORE ■" 
» IN SYSPOS • 



» IS THIS « 

SYSTEM UNIT 
> ASSIGNED t 



ACCUMULATOR 



.*—«-«-« 



TAPE 

POSITIONER 

ROUTINE 



DISK 

OR 

HYPERTAPE 



• UNIT » 
GREATER THAN 

• ZERO < 



« UNIT » 
! GREATER • 

THAN 10 
►(NOT TAPE) • 



DOES 

THIS UNIT 

EXIST 



*»*»*G3*****>*1 

• FORM -L(UCW) 

• AND PUT IN 

• IR2 



IBV2 X 

*»»»*H3**«*«**« 

• CLEAR 

• ACCUMULATOR 

• EXCEPT FOR 
» LOCATION 
» OF UCW 



>K3*****»**** 



l*««»K4 ********** 



LEGAL 

DISK 

UNIT 



CARD TYPE 
HIGHER 
THAN 3 



3 * ANY 
>• LEGAL CARD 
• DEVICES 



FORM 

CORRECT 

ADDRESS MASK 




* DOES • 
>THIS CARD UNIT 

* EXIST » 



X 30 

****»K5********** 
« * 

• LCUCW) * 
» TO »X 
» ACCUMULATOR * 



«»••**»»•«*»»* 



»»•»«•*••*** 



. I t4 
X 

»*«» 



Chart BV. IFIND and IBVAL routines 
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BW 



• IS THIS » 
BEFORE SYSOUl 

• IN TABLE » 



t***B2** ******* 

RESET 

AVAILABILITY 

AND NO 

REPOSITIONING 

FLAG 



INITL5 X 1 

•PROUT CWBl 

•PRINT SYSOUl 
• UNASSIGNED 
» CANNOT DUMP 



INITL6 X I 
*****CA********* 
•PROUT CWBl 

•PRINT SYSUT4 
• UNASSIGNED 
» CANNOT DUMP 



• SET DENSITY 

• AS INDICATED 
•BY SYSUNI SIGN 



INITL7 X 14 
»»»»»D4 »•*•»•»••• 

• MODIFY SYSDMP • 
•AND LOCATION 2 « 

.X^TO BYPASS DUMP • 
•AND GO DIRECTLY* 

• TO LOADER • 



******** 



INITLl 1 

••••»E3»^^»»^^^* 

• SETUP ALL I/O 
» INSTRUCTIONS 

<• IN CALIBl 

• FOR THIS UNIT 

••••••»* v******* 



»«*«*F1 ••*•**•• 
• GENERATE 
► DISK ORDERS 
» FOR SYSLDR 
» SETUP 
» SMS MASKS 



INITL2 16 

•»*»*F 3** •*••**•* 

• SETUP ALL I/O » 

• INSTRUCTIONS • 
<* IN DUMP ♦. 

•CALLER ROUTINE • 



(•••«F4 ••••••• 4 

• PUT 

• LINKAGE TO 

I DUMP CALLER 
> IN SYSDMP 
•AND LOCATION Z 



X 21 

*»t9*C I ********** 

• SETUP CHANNEL » 

• CODES FOR • 

• RCHX. TCOX, • 
•SOCX.RICH INSTR* 

• IN SYSLDR • 



G2 • • 

• IS IT » 
EITHER OF 
THE SYSOU 
OR SYSCK 

• UNITS • 



••Hl*^«**»***^ 



SET NO 

REPOSITIONING 

FLAG IN UCB 



««»«» 1,1 



Chart BW. INITUS routine 
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SYUCU X 01 
»»»»»A1 ••»•»•»»»« 
» SYMBOLIC UNIT < 

• FROM ICABO < 

♦ TO MQ ' 
•CHANNEL LETTER < 
»(IF TAPE)TO IR1< 



» COULD • 

IT BE CARD 
• EQUIPMENT • 



• » 

• UNIT TO IR2 • 



» 'ITRY DISK)»»»« 

• UNIT • YES • 
•NUMBER SREATER •....X» A* 
» THAN 9 » • 



STORE 
CHANNEL 
NUMBER 



LOOKUP 

UNIT 

IN TABLE 



IS TYPE 
GREATER 
THAN D 



FOUND 

IN 
TABLE 



X 15 

»«»*»D3*** ******* 

* * 
» UNIT TO IR2 * 

* * 
•CHANNEL TO IRl * 



LEGAL 

TAPE 

NUMBER 



»««*E5********** 
ADD INTERFACE • 
BIT IF NEEDED • 



*«***F4********* 
• ADD INTERFACE 
» BIT IF NEEDED 




»J2********** 



SET PBIT 

TO i l-OR 
MODEL IV 



•••**K2********** 

* • 

• SETUP » 
<• LATUM AND • 

* ACCUMULATOR • 

• • 
»*•««*«****»*••** 



Chart BX. SYUCU symbolic convert routine 
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SAVE 
AND L(UCW) 



• LCUCW) 
EQUALS 

• ZERO 



UNIT 
AVAILABILITY 

CHAINS 



BY 



»«»»>«» 



X 03 

»»**C I ********** 

POINT IR* TO • 

ADOR OF START • 

OF CHANNEL • 

AVAILABILITY • 

CHAIN • 



• DOES THIS • YES 
ADDRESS POINT *.... 
» TO UNIT » 



***»*£l ********* 

» 

» POINT IR4 
» TO NEXT UNIT 
• IN CHAIN 



• LAST 
UNIT 
» IN CHAIN 



• HOOK CHAIN » 

• AROUND UNIT » 

• TO BE REMOVED • 



UC«AV » 
( IBSUAV»*»»»»« 
(SYSUAV) 



UCAA 


» L(UCB).1ST *... 




«»«»•»««««*««»*•«•««««««-•«»« « 




____., • 


UCAB 


• L(UCB),1ST « . 




**************************** . 




*•*•••<•*>**•••**••*•••»••• I 


ETC. 


» L(UCB) » . 




'. 



UCB.3RD • 



L(UCB) .NTH 



Chart BY. RSYUR routine and sample chain layout 



L(UC8),LAST »... 



»*•**»«*•««»»*•*•«« 



«•«»«*««*««»•« 



UCB.LAST* 
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Chart Descriptions — iOEX 



ACTy/(ACJ\y — Activate Routine 

Charts ca and cb describe the activate subroutine used 
to initiate an i/o operation on a unit assigned to the 
specific file designated in the calhng sequence. 

Block CAOl: Subroutine test is used to check for a 
vaHd file. If the unit is unavailable or is an illegal unit, 
there will be no return to the actv routine. A message 
showing the illegal unit reference will be printed on- 
line, and the program will halt using the stop sub- 
routine. 

Blocks CA02 and CA03: On a return to actv, traps 
are disabled and mi is stored in the proper exit routine 
(actxi for the non-trap exit, and actyi for the trap 
exit ) . 

Blocks CA04 to CA06: The channel number is ex- 
tracted from word 1 of the ucb and mi is loaded with 
— (channel number —1). m2, m4, and the sense indi- 
cators are saved. m2 is set to -l (ucb). 

Block CA07: The channel activity cell (CHxao is 
tested to determine if the channel is dormant. If it is not, 
control transfers to act6 ( Block cboi ) . 

Block CA08: If the channel is dormant, word 1 of the 
UCB is loaded into the sense indicators. Bit position 4 
of the indicators is tested to determine if this is a 7909 
channel. If it is a 7909 channel, control transfers to 

ACT4 ( Block CA12 ) . 

Blocks CA09 and CAIO: If the dormant channel is 
not a 7909 channel, word 2 of the ucb is picked up. The 
location of the select routine is placed in m4, which is 
tested to determine if there is a select routine specified. 
If there is not, control transfers to actxs ( Block cbi4 ) . 

Block CAll: If a select routine is specified, the i/o 
indicators (tcox, trcx, and tefx) are tested, rctx is 
set to non-zero to indicate normal redundancy mode 
and control passes to acts ( Block cai6 ) . 

Block CA12: If the dormant channel is a 7909 chan- 
nel, word 3 of the ucb is tested to determine if the af 
flag is on. If the flag is on, control transfers to acts 

( Block CB07 ) . 

Blocks CA13 to CA15: After the channel checks are 
made and a select routine is indicated, the select rou- 
tine address is placed in m4. The contents of ffi4 are 
tested to determine if an address is present. If no select 
routine is specified, control transfers to actx2 (Block 
CB14). If an address is present, rctx is cleared, and 
control transfers to acts ( Block cai6 ) . 



Blocks CA16 and CA17: If a select routine is speci- 
fied, URRX is set to zero to reset the redundancy count. 
The channel activity cell cchxao is set to the location 
of the UCB. IR4 is stored in the exit address as the exit 
to the user's select routine, and control is given to this 
routine as a subroutine. The normal return from the 
select routine is via i, 4 to Block cai8. ( For an explana- 
tion of the other two returns that may be made from a 
select routine, refer to the IBM Reference Manual, 
Basic Monitor (IBSYS), Form C28-6248). 

Block CA18: Subroutine rdun is used to permit re- 
dundancy trapping if the operation is a write opera- 
tion. The return from this subroutine is via 2, 4 to actx2 

(Block CB14). 

Block CA19: This is entered if the return from the 
select routine was via 2, 4. The channel activity cell, 
CHXAC, is cleared and control passes to actx2 (Block 

CB14). 

Block CBOI: This block is entered from Block cao7 
if the channel is in use. The prefix of word 1 of the 
calling sequence is checked to determine if the entr>' 
is PZE or MZE. If the entry is pze, control transfers to 

ACTX2 ( Block CB14 ) . 

Block CB02: If the entry is mze, the address of the 
UCB is picked up and stored in chxsp to give that unit 
priority on this channel. 

Block CB03: This block is entered from Blocks cbo2 
and CBii. m2, m4, and the sense indicators are restored 
in preparation for returning to the using program. 

Blocks CB04 and CB05: trpsw is tested to determine 
if this is trap time. If trpsw is not zero, indicating trap 
time, control transfers to actyi ( Block cbi6 ) . If this is 
non-trap time, traps are enabled, chxac is checked to 
determine when xtrap has entered sel+ or when the 
channel becomes dormant. The program loops, making 
these checks until either condition occurs. Control then 
transfers to actxi ( Block cbo6 ) . 

Block CB06: This is the non-trap exit from actv. ml 
is restored, traps are enabled, and control is returned 
to the using program via 2, 4. 

Blocks CB07 and CB08: Entry is made to these blocks 
from Block cai2 if the af flag is on for a dormant 7909 
channel, chxac is set to the address of the ucb to indi- 
cate channel activity. Word 1 of the calling sequence 
is checked to determine the type of entry to actv. If the 
entry is pze, control transfers to act5a ( Block cbi2 ) . 

Blocks CB09 to CBll: If the entry to actv is an mze 
entry, the address of the ucb is stored in chxsp to give 
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this unit priority. Subroutine isski is used to issue one 
seek. STCx is executed to allow the channel to proceed 
and enable attention interrupts. Control then transfers 

to ACTS ( Block CB03 ) . 

Blocks CB12 and CB13: With a pze entry to actv, 
subroutine issek is used to issue seeks as required. 
STCX is executed to allow the channel to proceed and 
enable attention interrupts. 

Block CB14: At actxs, the sense indicators, irs, 
and m4, are restored in preparation for returning to the 
using program. 

Block CB15: trpsw is tested to determine if this is 
trap time or non-trap time. If trpsw is zero, control 
passes to actxi for a non-trap exit. If trpsw is not zero, 
control transfers to actyi for the trap exit. 

Block CB16: iri is restored and control is returned to 
the using program at 2, 4 (trap exit). 



SAVE/XTRAP — Trap Supervisor 

This routine monitors traps occurring on the data chan- 
nels as a result of the completion of an i/o operation or 
as a result of a redundancy on a channel when re- 
dundancy trapping is enabled. An attempt is made to 
recover when errors are detected, and the position of 
the tape is updated in the ucb if tape movement is in- 
volved. 

Block CCOl: This entry point is used whenever there 
is an illegal channel trap from a non-existent channel. 
Location goof is set to non-zero to indicate this error 
condition. 

Blocks CC02 to CC03: frswi is tested to determine 
if the trap is the result of an operation that was forced 
on the on-line printer or punch. If frswi is not zero, 
control transfers to prt3 to complete the operation 
which may have been interrupted by the use of puncho 
or PROUTO. If FRSWI is zero, dchsw is tested to deter- 
mine if the trap is the result of an invalid address re- 
covery or a no-record-found recovery from disk. If 
DCHSW is non-zero, indicating a disk recovery, control 
transfers to duenq (Block crit). If dchsw is zero, the 
machine registers are saved along with the transfer 
trapping mode and overflow conditions. 

Blocks CC04 to CC06: These blocks are entered either 
from Block cco3 or from the prout routine to complete 
the processing of a channel A trap which had been in- 
terrupted, or from the exit routine out if channel A 
had been active when an entry was made to prout. The 
trap code word is placed into the accumulator and 
sense indicators. If frsw2 is zero, indicating an initial 
trap on a channel without the concurrent use of prout, 
the address portion of this code word is stored in exit 



as the exit address from xtrap. If frsws is non-zero, the 
address of the code word is not moved, and control 
transfers directly to Block cco7. 

Blocks CC07 and CC08: irs is loaded with the con- 
tents of location goof. If ir2 is not zero (result of an 
illegal-channel trap), control transfers to tsti + 3. A 
message is printed to indicate an illegal unit reference 
followed by a dead stop. If m2 is zero, iri is set to 
— ( channel number — 1 ) . 

Blocks CC09 and CCIO: chxac is tested to determine 
if there is activity on the channel. If there is no activity, 
control transfers to end9 (Block ce22). If the channel 
is active, the trap switch is set and the channel results 
are moved from acomm to comm. 

Blocks ceil to CC13: frsw2 and frsw3 are both 
tested for a zero condition. If both are zero, indicating 
that there is not a wait to print an on-line message, the 
channel information will be stored in comm by the use 
of the indirectly addressed store channel instruction. 
If either or both ( frsw2 and frsw3 ) are not zero, the 
store channel instruction will be bypassed. 

Block CC14: trpsw is set to point to the ucb at this 
time and is now used to pick up the actual unit address 
from word 1. Bit position 4 of this word is tested to 
determine if the unit is disk. If a disk address is present, 
control passes to Block cdoi. If a non-disk address is 
present, control transfers to ndend at Block cci5. 

Blocks CC15 to CC18: A test for an i/o Check is 
made. If there was no i/o Check, control transfers 
immediately to end2 ( Block cci9 ) . If there was an i/o 
Check, subroutine mwr is used to print i/o check 7607 
and subroutine paws is used to allow an operator action 
pause. At the completion of the pause, the contents of 
TRPSW are replaced in the accumulator and control 
passes to end2 ( Block cci9 ) . 

Block CC19: ir2 is set to -lcucwd. The sense indi- 
cators contain the trap code word which includes the 
trap type in bits 15, 16, and 17. The remainder of the 
left half of the indicators is cleared and the sign is 
set to one. 

Block CC20: Bits 15 and 16 of the sense indicators 
are tested to determine if the trap resulted from either 
an EOF or a redundant write. If neither condition is 
present, control passes to Block ceoi. If either condi- 
tion is present, control transfers to endio ( Block cc2i ) . 

Block CC21: Bit 16 of the sense indicators is tested 
to determine if the trap resulted from a redundant 
write. In this case, control transfers to red22 (Block cjoi). 

Blocks CC22 and CC23: At this point the trap must 
be the result of an eof. Bit 1 of the sense indicators is 
set to one to indicate this fact, and the redundancy 
indicator is turned off. The old tape position is saved in 
LTPos, and the record count is set to 777777. Control 
now passes to ends (Block ceii). 
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from Block cci4 if this is a trap from a 7909 channel. 
DCHSW is set to L(UCB), and the "store diagnostic chan- 
nel" command is executed. The sense indicators are 
loaded with the data obtained from the sdcx instruc- 
tion, and position 35 is reset to 0, ( The contents of the 
six-position channel check condition register are pres- 
ently in positions 6 through 11.) Positions 6, 7, and 11 
are tested to determine if there has been an I/O, Se- 
quence, or Adapter Check. If any of these conditions 
are present, control transfers to dendi ( Block cd09 ) . 

Block CD04: When none of the check conditions is 
present, bits 8, 9, and 10 of the sense indicators are 
tested to determine if there has been an Unusual End 
or an Attention Interrupt. If neither condition is pres- 
ent, control transfers to dend2 ( Block cdi6 ) . 

Blocks CD05 to CD07: If either an Unusual End or 
an Attention Interrupt is indicated, comm is examined 
to determine if this is a systwt trap. If it is a systwt 
trap, control transfers directly to subroutine datns. If 
it is not a systwt trap, bit 35 of the sense indicators is 
set to 1 before transfer to datns. This subroutine is 
used to perform an sns sequence and to obtain the 
sense data words from the channel being tested. 

Block CD08: Bit 8 of the sense indicators is again 
tested to determine if there has been an Unusual End. 
If there has been an Unusual End, control transfers to 
DKRCv ( Block cpoi ) ; Otherwise, control passes to dend2 

(Block CD16). 

Blocks CD09 to CD15: These blocks are entered from 
Block CD03 if there has been an I/O, Sequence or an 
Adapter Check. The error bits are placed in adjacent 
positions in the accumulator and mq, and packed to 
eliminate the unused bits. Each error bit is tested in 
turn, and an error message is printed by subroutine 
PROUT for each bit that is found on. The I/O Check in- 
dicator is turned off if it was on, and subroutine pause 
gives the operator a chance to correct the difficulty. 
Control then transfers to Block cdos for an Unusual 
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Blocks CD 16 and CD 17: Entry to dend2 is made if 
no Unusual End is indicated. The sign of the accumu- 
lator is set minus for entry into subroutine issek. This 
subroutine is used to issue any pending seeks. 

Blocks CD 18 to CD21: Bit 35 of the sense indicators 
is tested to determine if this is a systwt trap. If it is 
not, control transfers to end9 ( Block ce22 ) , If this is a 
systwt trap, the Unusual End test word (dueld is 
reset to zero, and ir2 is set to point to the ucb. The first 
four bytes of sns data are placed into the sense indi- 
cators in positions 12 through 35. ( Positions through 5 
contain the 7909 control counter and positions 6 
through 11 contain the contents of the channel check 
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enter sel-. 

Block CEQl: This block is entered from Block cc20 if 
there has not been an eof or redundancy encountered 
while writing. The accumulator contains the contents 
of the channel activity cell, and is tested to determine 
if any blank tape has been written. If the sign is minus 
(indicating that blank tape has been written), control 
transfers to endi3 (Block ce2o). 

Block CE02: If blank tape has not been written, the 
MQ is loaded with the second word of the ucb and the 
sign of the mq is tested. If the sign is plus ( indicating 
a read operation), control transfers to bedi2 (Block 

CHOl), 

Blocks CE02.5 to CE04: For a write operation, bit 3 
of the sense indicators is set to 1, An ett instruction is 
executed. If the end-of-tape marker has been sensed, 
bit 18 in word 1 of the ucb and bit 1 of the sense indi- 
catoi:s are set to 1. 

Block CEOS: After the end-of-tape test, subroutine 
NRTST is used to check the word count and determine if 
the record was a noise record. If the record is a noise 
record, the sign bit of the sense indicators will be set 
toO, 

Block CE06: The proper bit for redundancy trap on 
this particular channel is turned off in trap. 

Block CE07: This block is entered from Block ce06 
and also from Block cho5 in the event that a read re- 
dundancy is found to be a noise record. The contents 
of the sense indicators are saved in rwind for later use. 

Blocks CEOS to CEIO: These blocks are entered from 
Block CE07 and also from Blocks chb2 and chc2 in the 
read redundancy-recovery routine whenever no re- 
dundancy is found or redundancy is disabled. The tape 
position is picked up from word 3 of the ucb. The sense 
indicators are tested to determine if the operation is 
read or write. If the operation is a read operation, con- 
trol transfers directly to end5 (Block ceii). If the opera- 
tion is a write operation, bit positions 19 and 20 are 
masked out of the record count and control transfers 

to END5. 

Block CEll: This block is entered from Blocks ceo9 
and CEio as described above, and also from Block cc23 
on an end-of-file condition. The record count is in- 
cremented by 1 and stored in word 3 of the ucb. 

Block CE12: The address of the user's select routine 
is picked up from word 2 of the ucb and placed in the 
subsequent transfer instruction to allow ioex to trans- 
fer control to that routine. 

Block CE13: This is the user's select routine which 
has three possible returns. The first return d, 4) is the 
normal return which transfers control to end9 at Block 
CE22. The second return (2, 4) transfers control to endii 
(Block CE14). This return is used for both reading and 



writing when the record in question is considered to 
be a noise record. The third return (3, 4) to Block ce23 
is used for reading when the normal redundancy re- 
covery procedure is to be used. 

Blocks CE14 to CE16: When the record in question 
is considered to be a noise record, dchsw is tested to 
determine if this is a disk operation. If it is, control 
transfers to end9 (Block ce22). If this is not a disk 
operation, the contents of the sense indicators are re- 
stored from RWiND. Position 3 of the sense indicators is 
tested to determine if this is a write operation. If it is, 
control transfers to endi2 ( Block ce21 ) . 

Blocks CE17 to CE19: If a write operation is not in- 
dicated, subroutine redio is used to print the file and 
record location and noise record discarded. The re- 
dundancy count is reset to zero. The noise record bit is 
added to word 3 of the ucb and the record count is re- 
duced by 1. 

Block CE20: The contents of the channel activity cell 
are picked up. Control transfers to bgi + i to read the 
next record from this unit if priority is still assigned to 
this unit, or to search for another unit that is waiting 
and initiate an i/o operation on that unit. 

Block CE21: During a write operation, subroutine 
REDio is used to print the file and record count and the 
message short record written. 

Block CE22: The redundancy count is set to zero as 
required, and control passes to bgi (Block cfoi). 

Blocks CE23 and CE24: These blocks are entered 
when return 3 (3, 4) is taken by the user's select routine. 
DCHSW is tested to determine if the unit in use is disk. 
If the unit is disk, control transfers to Block ce20 to 
eventually re-enter the sel+ routine. If the unit in use 
is not disk, the record count in word 3 of the ucb is 
reduced by 1, and control transfers to Block ch06, to 
enter the read-redundancy-recovery routine after the 
noise record test. 



BGI — Initiate Next Channel 
Operation Routine 

Charts cf and cg show the routine used to initiate the 
next operation on a channel. It is entered from the trap 
supervisor (Xtrap) when it is desired to start another 
operation after a prior operation has been completed. 
The channel priority cell is checked to determine 
if the next operation is to be initiated on a specific unit. 
If the priority cell is not set to indicate a specific unit, a 
search is made for another unit on this channel which 
is awaiting an i/o operation. When it is determined 
which unit is to be the next one requiring an i/o opera- 
tion, SEL+ is entered for that unit. If no unit requires an 
I/O operation and there are no pending seeks to be 



issued for disk, the activity cell is cleared, and opera- 
tion ceases on that channel. 

The key registers and status conditions are restored 
before returning to the point interrupted by the data 
channel trap. If there are any seeks remaining to be 
issued, they will be issued and the activity cell will not 
be cleared before restoring the machine registers and 
status conditions. 

Block CFOI: The address of the priority ucb is picked 
up from the channel priority cell, chxsp, for the proper 
channel. 

Blocks CFOI. 5 and CF02: The disk channel switch, 
DCHSW, is tested to determine if the trap resulted from 
an operation on a 7909 channel. If a 7909 channel 
caused the trap (dchsw is not zero), control exits to 
Block CF03. If the trap was not from a 7909 channel, the 
checkpoint switch (Chpsw) will be tested to determine 
if the program is in the process of checkpoint. If a 
checkpoint is in process, control transfers to bg3 ( Block 
CF17), If a checkpoint is not in process, control trans- 
fers to Block CF03. 

Blocks CF03 to CF08: At this point the accumulator 
contains the contents of the priority cell for the desired 
channel. If this address is zero, indicating that priority 
was not assigned to a unit at this time, control transfers 
to BG2 ( Block CF09 ) to scarch for a unit which can be 
given priority. If the priority cell was not zero, it will 
be used to locate the address of the select routine being 
used by that unit. If the location of the select routine 
is not zero, control transfers to Block cfio. If the loca- 
tion of the select routine is zero, the priority cell and 
word 2 of the ucb are cleared. 

Block CF09: ir2 is set to point to the ucb for the unit 
that just completed an operation. The accumulator is 
set to zero except for the "P" bit. Control passes to 
Block CGOi to search the ucb's for a unit with an i/o 
operation waiting to be performed. 

Blocks CFIO to CF12: dchsw is tested to determine 
if the channel is a 7909 channel. If this is not a 7909 
channel ( dchsw is zero ) , control transfers to bg5 (Block 
CF13 ). If it is a 7909 channel ( dchsw is not zero ) , word 
3 of the ucb is tested to determine if the activity flag is 
on for this unit. If the activity flag is on, control trans- 
fers to BG6 ( Block CF20 ) . If the flag is not on, the accum- 
ulator is cleared in preparation for entering sel+. 

Blocks CF13 to CF16: These blocks will be entered 
with the accumulator cleared for a 7909 channel, and 
not cleared for a 7607 channel. The contents of the ac- 
cumulator are stored in the redundancy check control 
cell for the proper channel. Clearing this cell suppresses 
redundancy checking and recovery while reading. The 
trap switch and channel activity cell are both set, and 
the user's select routine is entered. The normal return 
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from the select routine is via i, 4. Subroutine rdun is 
used to set up the trap indicators in trap to allow re- 
dundancy trapping on a write operation. If the opera- 
tion is a read operation, redundancy trapping is not 
permitted and trap is not altered. A non-data select 
operation returns irom tue seiect routine via 2, 4, an^ 
control transfers to bgi ( Block cfoi ) to initiate another 
operation on the same channel. Upon return from rdun, 
control transfers to Block cgoi to restore the key regis- 
ters and status conditions and then return to the pro- 
gram at the point interrupted by the data channel trap. 

Blocks CF17 to CF19: These blocks are entered if a 
checkpoint has just been processed on a 7607 channel, 
or at the unsuccessful completion of the search for a 
unit awaiting priority. The activity cell is cleared and 
DCHSW is tested to determine if there are any more 
seeks waiting to be issued. If dchsw is zero and/or plus, 
indicating that there are no more seeks to be issued, 
control transfers to Block cgoi to return eventually to 
the point interrupted by the channel trap. If there are 
seeks remaining to be issued, the activity cell is reset. 

Blocks CF2G and CF21: Subroutine issek is used to 
issue any pending seeks. Attention interrupts are 
enabled before transferring control to Block cgoi to 
return to the trapped location. 

Block CGOI: This block is entered when it is neces- 
sary to search the ucb's for a waiting unit. The disk 
channel switch, dchsw, is tested to determine if this 
is a 7909 channel. If it is a 7909 channel (dchsw is not 
zero ) , control transfers to Block cgo7, and ir2 is decre- 
mented to permit testing the activity flag. 

Block CG02: If a 7909 channel is not indicated, word 
2 of the UCB is tested to determine if there is an ad- 
dress of a select routine present. If word 2 is not zero, 
indicating that there is an address of a select routine, 
control transfers to Block CGoe. 

Blocks CG03 to CG05: If word 2 is zero, ir2 is tested 
to determine if the last ucb has been tested. If the last 
UCB has not been tested, control returns to Block cgoi 
to test the next one. When ik2 is reduced to 4 or less, 
indicating that the last ucb has been tested, the accu- 
mulator is tested to determine if the entire set of ucb's 
for this channel have been tested. If all the ucb's have 



)t been tested, 



xX\/v XO 






from the beginning of the table and control returns to 
Block cgoi. If the accumulator is minus, indicating that 
this second attempt has already been performed, con- 
trol transfers to Block cfit. 

Block CG06: This block is entered when an address 
of a select routine is found in word 2 of a ucb. The 
actual location of the ucb is stored into the priority cell 
and control transfers to Block cfoi. 

Blocks CG07 to CG09: The activity flag in ucb word 
3 for a 7909 channel is tested to determine if a seek 



has already been issued for this unit and the seek has 
not responded with an attention signal. If an attention 
signal is still awaited, the sign of dchsw is set to minus 
and IR2 is stepped to test the next unit and control trans- 
fers to Block CG03. If an attention signal is not awaited. 



c£>-l- ■!-/-% 4-Oic4- 4-r 



control transfers to Block cgo2. 
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Blocks CGIO to CG13: The trap switch and dchsw 
are cleared. The sense indicators and iri are restored. 
FRSwi is tested to determine if the program may return 
to the point interrupted by the trap at this time. If 
FRSWi is not zero, control transfers to Block cgi4. Other- 
wise, FRSW2 is cleared, and the remaining index regis- 
ters, together with the original contents of the accu- 
mulator and MQ, are restored. The overflow indicator 
and trap transfer status are restored. Traps are re- 
stored to their original state, and control returns to the 
point interrupted by the original data channel trap. 

Blocks CG14 to CG16: frswi is cleared and frsw2 is 
tested to determine if the program must return to com- 
plete processing the trap that was interrupted by an 
on-line message. If frsw2 is not zero, control returns 
to XTRAP, Block CC04, to Complete processing of the first 
trap. If FRSW2 is zero, frsw3 is cleared, and control 
transfers to prtxs, Block cw32. 



Read Redundancy Recovery Routine 

The read redundancy-recovery routine for tape per- 
forms the following major operations: determines 
whether a record was a noise record and returns to the 
trap supervisor if it was a noise record; performs a 
tape cleaner operation on the tape every ten times if 

cover until the maximum number of tries as indicated 
in RDUNRT has been reached. 

The tape cleaner operation will not be performed if 
the record count is less than 2 in this particular file. 

Blocks CHOI to CH05: The proper trc instruction is 
picked up from the trcx table, and inserted in this rou- 
tine. (As assembled, the listing shows a trca, but the 
operation code will be modified for the proper channel 
by this procedure.) The trc instruction is executed 
to determine if there has been a tape redundancy. If 
there has not been any redundancy, control transfers 
to END 16 (Block CEOs). If there has been a redundancy, 
the redundancy check control cell for this channel in 
table RCTX is tested to determine if redundancy re- 
covery is disabled. If the entry in rctx is zero, in- 
dicating that redundancy recovery is disabled, con- 
trol transfers to endig (Block ceos). If redundancy 
recovery is allowed, subroutine nrtst is used to deter- 
mine if the record in (question is a noise record. If bit 
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in the sense indicators is on upon return from this sub- 
routine, a noise record is indicated and control trans- 
fers to END15 ( Block CE07 ) . 

Blocks CH06 to CH09: When a record is not noise, 
subroutine redso is used to increment the redundancy 
count and set up redi4 and the accumulator with the 
unit address for recovery procedures. ir2 will contain 
the count of the number of redundancies upon exit 
from this subroutine. The unit address is placed in the 
read select instruction for recovery procedures, and ir2 
is tested to determine if the limit for the number of 
retries has been reached. This limit is indicated by 
RDUNRT. If this limit has not been passed, control passes 
to RED14 (Block CH14), to backspace the tape. Other- 
wise, the record count is incremented by 1. 

Blocks CHIO to CH12: Bits S and 1 of word 3 of the 
UCB are tested to determine if the redundancy message 
is to be suppressed. If either bit is on, control transfers 
to Block CH13. If both bits are off, the message will be 
printed. Subroutine redio is used to print the redun- 
dancy message that indicates the tape unit number as 
well as the tape position where the error was encoun- 
tered. The permanent redundancy bit is set in the 
URRX table. 

Block CH13: Bit 2 of the sense indicators is set to 1 
to indicate to sel- that there has been a permanent re- 
dundancy, and control transfers to endi4 ( Block cei2 ) . 

Blocks CH14 to CH16: The tape is backspaced over 
the record that caused the redundancy. ir2, which con- 
tains the count of the number of redundancies, is re- 
duced by 10 until it is 10 or less. ir2 is then tested to 
determine if this retry is the first attempt, or some mul- 
tiple of ten plus one. If ir2 does not meet these condi- 
tions, control transfers to endi3 (Block ce2o). 

Blocks CH17 to CH21: On the first entry, or any 
entry that is a multiple of ten plus one, word 3 of the 
UCB is picked up. This word contains the tape position 
with the noise record indication in the sign position. 
The sign is tested to determine if there has been a noise 
record. If there has been one, control transfers to endis 
(Block CE2o). For no noise record, the record count in 
UCB word 3 is placed in ir4 and tested to determine if 
the count is less than or equal to 1. For a record count 
less than or equal to 1, control transfers to endi3 ( Block 
CE2o) to bypass the tape cleaner operation. 

If IR4 is greater than 1, a tape cleaning operation may 
be attempted depending on the record count. ir4 is 
further tested to determine if the record count is in com- 
plement form indicating that the tape is positioned at 
an end-of-file mark. The tape cleaner operation will be 
bypassed, and control transfers to endis (Block ce2o). 

Blocks CH22 to CH25: If a tape cleaner operation is 
specified, a bsr instruction is executed twice and then 



an KDS is executed twice. The channel is tested to deter- 
mine when this operation is completed. When the 
channel is no longer busy, the redundancy indicator in 
the channel is turned off (using a trc instruction) and 
control transfers to endis (Block ce2o). The purpose 
of this series of instructions is to move the tape back- 
wards in an attempt to bring the bad area of the tape 
into the vacuum column and dislodge any particles 
that might have caused the read redundancy. 



Write Redundancy Recovery Routine 

The write redundancy recovery routine first backspaces 
the tape over the bad record, and then writes an erase 
area and checks it for redundancies. If redundancies 
are found while writing the erase area, a message is 
printed on-line for the operator. If no erase redun- 
dancies are found, the routine rewrites the record that 
could not be written earlier. This series of operations is 
repeated until the record can be written properly or 
until an eot condition is sensed. After each 25 erase 
areas are written, a message is printed on-line for 
the operator. 

Blocks CJOl to CJ05: The accumulator is tested to 
determine if there had been a redundancy encountered 
during an erase operation. If the accumulator is minus, 
indicating a redundant erase, control transfers to red20 
(Block cjis). If the redundancy was not encountered 
during an erase operation, the sign of the accumulator 
is set minus, and the accumulator stored in the channel 
activity cell for the proper channel. Subroutine redso is 
used to increment the redundancy count. Upon exit 
from this subroutine, the accumulator and redi4 con- 
tain the unit address and ir2 contains the redundancy 
count. The unit address is placed in red6 for recovery 
operations to follow. 

Blocks CJ06 to CJ09: The tape is backspaced over 
the bad record and ir2 is tested to determine if this is 
the first redundancy. If this is the first redundancy, 
control transfers to Block cjio. If this is not the first 
redundancy, the eot indicator in the channel is tested. 
If the EOT has been sensed, control transfers to red9 
(Block CJ15). If the eot has not yet been reached, the 
redundancy count in ir2 is reduced by 25 until it is 25 
or less. 

Blocks CJIO and CJll: ir2 is tested to determine if 
the count remaining is exactly 25. This would be the 
case on every 25th redundancy encountered. If m2 is 
not exactly 25, control transfers to reds (Block cji2). 
If the count is 25, an on-line message is printed for the 
operator, indicating that 25 erases occurred during a 
recovery attempt. 
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Blocks C}12 to CJ14: The address of an instruction 
which will cause a blank area of tape to be written is 
stored in the rchx table. Traps are disabled, the tape 
unit is selected, and the rchx instruction is executed to 
write the blank tape. Bit 17 in the vbbx table entrj^ for 
this channel is set to 1 to indicate that an erase area 
has been written. Control transfers to out (Block cgio). 

Blocks CJ15 to CJ17: These blocks are entered when 
an EOT is sensed during an attempt to recover from a 
redundant write. The unit address is picked up from 
the UCB, and subroutine cvprt is used to print this tape 
address and a message to the operator indicating that 
the end of tape has been reached. The stop subroutine 
is used to bring the program to a dead stop. 

Block C}18: This block is entered from Block cjoi if 
a redundancy was encountered attempting to write an 
erased area. Subroutine redio is used to print an on-line 
message to the operator to inform him of his problem 
and control transfers to endi3 (Block ce2o). 



Redundancy Subroutines 

Chart CK shows four subroutines used by the redun- 
dancy recovery routines. Subroutine redso is used to 
increment the redundancy count, and set up the i/o 
commands for the proper unit and channel in opera- 
tion. Subroutine redio is used to print an on-line error 
message to the operator informing him of an error, and 
giving the tape unit number and the position of the 
error on the tape. Subroutine nrtst is used to com- 
pute the length of the record in question, and determine 
if it is a noise record. If the word count is less than or 
equal to 2, it is considered to be a noise record, and 
the noise record indicator is reset in the sense indica- 
tors. Subroutine rdun is used to set the proper bit in 
the trap cell to allow redundancy trapping on a write 
operation. 



print image. The record position is next picked up 
from word 3 of the ucb, converted to bcd by subroutine 
BCVDEC, and stored in the print image. The tape unit 
number is picked up from word 1 of the ucb. Sub- 
routine cvprt is entered with the tape number in the 
left half of the mq. This subroutine converts the tape 
number to its symbolic unit designation, and prints 
the error message desired with this tape designation. 
Upon return from cvprt, ir2 and ir4 are restored, and 
control returns to the calling program via i, 4. 

NRTST — Noise Record Test Subroutine 

Blocks CK14 to CK16: This is the entry point for the 
nrtst subroutine. This subroutine checks the length 
of a record just read or written to determine if it was 
a noise record. ir4 is saved and the channel data is 
picked up from comm. Then the original i/o command 
is subtracted from this. 

Blocks CK17 to CK19: The resulting word count is 
placed in m4 and tested to determine if it is less than 
or equal to 2. If it is less than or equal to 2, bit position 
of the sense indicators is cleared to indicate a noise 
record condition. If the word count is greater than 2, 
the sense indicators are not changed. Control exits to 
the calling program via i, 4. 

RDUN — Permit Write Redundancy Trap Subroutine 

Blocks CK20 to CK23: ir4 is saved. The location of 
the UCB is picked up from chxac and used to obtain 
word 2 of the ucb for the unit now in use. The sign of 
word 2 is tested to determine if this is a read or a write 
operation. If the operation is a read operation ( sign is 
0), control transfers to Block ck24. If the operation is a 
write operation (sign is 1), a bit is OR'd to the trap 
cell to allow redundancy trapping on this one par- 
ticular channel. 

Block CK24: ir4 is restored, and control returns to 
the calling program via i, 4. 



Blocks CKOl to CK03: The redundancy count in the 
URRX table is incremented by one, returned to the table, 
and also placed in ir2. The unit address is obtained 
from the ucb and placed in redi4 and the accum.ulator. 
Control exits to the calling program via i, 4. 



REDIO -Print Redundancy Error Message Subroutine 

Blocks CK04 to CK13: ir2 and ir4 are saved. The ad- 
dress of the available part of the message is obtained 
from the redio calling sequence and placed in ir2. The 
variable part of the message is then obtained and 
r>lflr>f>rl into tVip nrint imaae for the error messaee. The 
file position is picked up from word 3 of the ucb, con- 
verted to BCD bv subroutine bcvdec, and stored in the 



NDSEL — Non-Data Select Routine 

Chart CL shows the non-data select routine that is used 
to perform on a tape unit specific operations that do 
not cause the transfer of data. A test is made for the 
validity of the ucb as specified by the file designation, 
in the calling sequence. If the unit reference is illegal, 
the program will come to a halt after printing the 
reason for the halt. An attempt to perform a non-data 
operation on a disk file will not cause the error halt, 
but will cause an exit from the routine with no opera- 
tion performed. 

Block CLOl: Subroutine test is used to test the 
validity of the file specified in the calling sequence. 
An invalid ucb address will cause an error halt, and 
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the subroutine will not return to the non-data select 
routine. 

Blocks CL02 to CL07: This may also be used as an. 
entry point if it is not desired to test for a valid file 
designation. Traps are disabled, and word 1 of the 
ucB is picked up. The trap switch, trpsw, is tested to 
determine if this non-data select request is during trap 
time or non-trap time. If trpsw is zero, indicating that 
it is non-trap time, iRi, ir2, and the sense indicators are 
saved for the non-trap exit. Location wefi is set to the 
location of the ucb. If the trap switch is not zero, the 
save and setup instructions for the non-trap exit are 
bypassed. In either case, however, iri, ir2, and the 
sense indicators are saved for the trap exit, and loca- 
tion WEF2 is set to the location of the ucb. 

Blocks CL08 to CLll: ir2 is set to the non-data select 
code as indicated in the calling sequence. The exit 
address is calculated for all operations except the write 
end-of-file operation. ir2 is tested to determine if the 
operation requested is wef. If it is a wef operation, the 
exit address is modified for this particular use of the 
subroutine. ( iri contains the proper exit address at this 
time. ) If the operation is not wef, no change is made to 
the previously calculated address in iri. 

Blocks CL12 to CL14: Following the write end-of- 
file check, rR2 is tested to determine if the operation 
requested is nop. If the operation is nop, control trans- 
fers to Block CL31 to return to the calling program. If 
the operation is not nop, the unit address from word 1 
of the UCB is loaded into the sense indicators and tested 
to determine the type of unit. If the unit is card or 
disk, control transfers to Block cl31 for an exit to the 
calling program. 

Blocks CL15 and CL16: For a tape unit, trapsw is 
tested to determine if this operation is during trap time 
or non-trap time. If this operation is during trap time, 
control transfers to Block cli7. If this operation is dur- 
ing non-trap time, word 2 of the ucb is tested to de- 
termine if the unit is active. If word 2 is zero, indicating 
that the unit is not active, control transfers to nds4 

(Block CL20). 

Blocks CL17 to CL19: If the unit is active, subroutine 
ACTV is used to assign channel priority to this unit. The 
subroutine is entered in such a manner to bypass testing 
for the validity of the file, since this has already been 
done when the non-data select routine was entered 
initially. Word 2 of the ucb is tested to determine when 
the unit activity has ceased. Until the unit activity has 
ceased, control remains within this test loop. When all 
activity on this unit has ceased, traps are disabled. 

Blocks CL20 to CL22: m2 is tested to determine if 
the operation is wef. If the operation is wef, control 
transfers to Block cl23. If the operation is not wef, 
bit 18 of the sense indicators is tested to determine if 



the end-of-tape marker has been sensed. If an end-of- 
tape marker has not been sensed, control transfers to 
to Block CL23. Otherwise, iri is reset to the location of 
the error exit that is to be taken when a wef operation 
is requested at the end of tape. 

Blocks CL23 to CL27: trpsw is tested to determine 
if the program is in trap time. If trpsw is not zero, indi- 
cating trap time, control transfers to Block cl28. 
Otherwise, the non-data operation code is stored in ucb 
word 2 with the address of the select routine for this 
operation. Subroutine actv is entered at a point which 
bypasses the file validity check and assigns channel 
priority to the required unit. Upon return from actv, 
the contents of iri are stored as the exit address. ir2, ir4, 
and the sense indicators are restored, and control will 
return to the calling program via either i, 4, or 2, 4 as 
computed earlier. (The normal return is i, 4 for all 
except M^F operations. This operation exits to 2, 4 
normally and i, 4 if an eot has been sensed. ) 

Blocks CL28 to CL30: A comparison of the channel 
presently in trap time and the channel required for the 
unit designated to receive the non-data operation is 
made. If both channels are not the same, control trans- 
fers to nderr (Block CL33). If both channels are the 
same, the non-data code is placed in the accumulator, 
and IR2 is set to point to an indirect reference to the 
UCB. A direct entry is made to the select routine at 
Block CM02 to initiate the non-data operation requested. 

Blocks CL31 and CL32: iri is stored as the exit ad- 
dress as previously calculated, iri, ir2, the sense indica- 
tors, and trap status are restored. Control exits to the 
calling program at either i, 4 or 2, 4 as required for the 
particular operation and conditions. 

Blocks CL33 to CL35: If the unit channel and trap 
channel are not the same, the unit address is picked up 
to be used in the print-out of an error message for the 
operator. Subroutine cvprt is used to print an on-Hne 
error message indicating that there was an illegal non- 
data select at trap time. The symbolic designation for 
the requested tape unit is also printed out with this 
message. After the message is printed out, subroutine 
STOP causes a dead stop. 



Select Routine for Non-Data Operations 
(Except NDWEF) 

Chart cm shows the select routine used for all the 
non-data operations initiated by ndsel except for the 
ndwef operation which is shown on Chart cn. Portions 
of the chart are shown within boxes. One or the other 
of these boxes will not effectively exist in any particular 
program, depending on the value given to the symbol 
"ibm" on the equ card at the beginning of the symbolic 
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aecK. Tne following instructions will overlay the un- Any of the tape movement operations will cause the 



pseudo-instruction with the symbol ibm in its variable 
field. The instructions which are conditional pertain to 
the set density operations that are not legal on the ibm 
709 computer. If the computer for wliich the program 
was assembled is an ibm 709, a test is made for either 
of the set density operations. Control exits without per- 
forming these operations if either of the operations is 
requested. The instructions pertaining to their execu- 
tion are overlaid so that space is not lost in the 
assembly due to unrequired instructions. 

Block CMOl: ms is set to point to the ucb, and word 
2 of the UCB is picked up. The original word 2 of the 
UCB is cleared. 

Blocks CM02 to CMOS: ir4 is saved, and the non-data 
code is placed in ir4. The unit address is obtained from 
word 1 of the ucb and positioned in the accumulator 
address. ib4 is tested to determine if the non-data code 
is SDNL. If the non-data code is sdnl, control transfers 
to Block CM06. If the non-data code is any code other 
than SDNL, a bit is OR'd to position 31 of the accumula- 
tor to force the binary address which is required for 
all other non-data operations. 

Block CMOS to CM09: The unit address is stored in the 
non-data select table, selx. Block cmot is only present 
if the program was compiled with ibm equ 709. In 
this block, IR4 is tested to determine if the non-data code 
is either of the set density operations. If either of the set 
density operations has been requested, control transfers 
to NDSX4 ( Block CM28 ) . If the non-data code is neither 
of the set density operations, ( or if Block cmo7 does not 
exist in this assembly), ir4 is tested to determine if 
the non-data code is wef. If the non-data code is wef, 
control transfers to the wef select routine at ndwef 
( Block CNOi ) . If the operation is not wef, the desired 
operation in the selx table is executed. 



the desired operation has been executed, or from the 
alternate select routine for a wef operation as shown 
on Chart gn. Word 1 of the ucb is placed in the sense 
indicators, and word 3 is placed in the accumulator. A 
long right shift with a count of zero is executed to save 
the noise record indication in the sign position of the 

MQ. 

The sign of the accumulator is made plus in case the 
sign was previously set minus to indicate a noise record 
condition. The next instruction is an execution into an 
indexed table of instructions. Each of the instructions 
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density operations will cause a transfer to a routine 
which will properly set the density indicators in word 
1 of the ucb. An sdnl operation causes a transfer of 
control to upd6 (Block cm22) and an sdnh operation 
causes a transfer of control to upd7 (Block cm24). A 
tape movement operation causes the new tape position 
to be calculated and left in the accumulator. 

Blocks CM14 to CM16: The accumulator is tested to 
determine if the operation resulted in a minus tape po- 
sition. If the tape position is not minus, control trans- 
fers to Block CM17. If the tape position is minus, this 
position is tested to determine if it is also zero, which 
indicates that the tape is rewound and unloaded. If 
the tape is rewound and unloaded, control transfers to 
Block CM18. If the tape is not rewound and unloaded, 
the accumulator is cleared. 

Block CM 17: The accumulator is tested to determine 
if the tape is positioned at load point. If the tape is at 
load point, control transfers to Block cmi9. 

Blocks CM18 and CM19: At this point it is known 
that the tape is positioned at some point other than the 
beginning of the tape, and that it is not unloaded. The 
end-of-tape indicator is turned oflF, if it is on. The noise 
record indication which was stored in the sign of the 
MQ is replaced in the accumulator, using a long left 
shift with a count of zero. 

Blocks CM20 and CM21: The calculated tape posi- 
tion in the accumulator is replaced in word 3 of the 
ucb. a test is made to determine if the tape is rewound 
but not unloaded. If the tape is rewound but not un- 
loaded, control transfers to upd3 ( Block cm26 ) . 

If the tape is not rewound, control transfers to ndsx4 
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with IBM EQU 709, Block CM21 and the test do not 
appear. Control will pass from Block cm20 directly to 
Block CM27 in this case. ) 

Blocks CM22 and CM23: The bit indicating current 
density is cleared. (This indicates low density.) The 
operation code in ir4 is tested to determine if the opera- 
tion was an sdnl. If the operation was an sdnl, control 
transfers to Block cm25. 

Block CM24: This block is entered if the non-data 
operation code is sdnh. The density bit indicating 
density at current position is set to 1 to indicate high 
density. 

Block CM25: With the indicator for the density at 
the current position set up, the tape position in word 3 
of the UCB is tested to determine if the tape is at load 
point. If the tape is not at load point, control transfers 

to Block CM27. 



Block CM26: If the ta'^c 



required for the non-data operation being performed. 
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bit in position 19, which indicates load point density. 



is set equal to bit 20, which indicates the density at the 
current position. 

Block CM27: Word 1 of the ucb is restored from the 
sense indicators with the corrected density indications 
if they had been made. 

Block CM28: m4 is restored and control exits to the 
calling program via 2, 4. 

Select Routine for NDWEF 

Chart CN shows the select routine used for wef opera- 
tion. It is entered from the select routine shown on 
Chart CM for a wef operation. The routine writes an 
end-of-file on a desired tape and checks for a redun- 
dancy. If a redundancy is encountered, the tape is 
backspaced, and another attempt is made. On all ex- 
cept the first attempt, a check is made for an end-of- 
tape condition. Every 25th time that an attempt is 
made, an on-line message is printed for the operator 
indicating that there have been 25 erases during a 
write. 

Block CNOl: This block is entered from the non-data 
select routine with the unit address in the accumulator. 
This address is stored in the i/o command requiring it. 
The TRC operation code for the proper channel is picked 
up from the trcx table, and inserted in the trc instruc- 
tion in this routine. ir4 is set to count 26 attempts. 

Blocks CN02 to CN05: The wef instruction is exe- 
cuted, and the proper entry in the tcox table is set to 
loop within this program until the channel is not busy. 
When the channel is not busy, the channel redundancy 
check indicator is tested. If a redundancy has occurred 
while writing the end-of-file, control transfers to weft 

( Block CN09 ) . 

Blocks CN06 to CN08: If no redundancy occurs, the 
end-of-tape indicator in the channel is tested. If the 
indicator is on, bit 18 in word 1 of the ucb is set to 
indicate eot. If the indicator is off, this step is bypassed. 
IR4 is reset to the non-data operation code, and control 
returns to nds5 (Block cm 10) in the regular non-data 
select routine. 

Blocks CN09 to CNll: These blocks are entered if 
there has been a redundancy on writing an end-of-file. 
The tape is backspaced and ir4 is tested to determine if 
this is the first time the error has occurred. If this is the 
first time the error has occurred, control transfers to 
Block CN15, bypassing the end-of-tape test. If this is not 
the first time the error has occurred, the end-of-tape 
indicator in the channel is tested. If the end-of-tape 
has been sensed, control transfers to wef8 (Block 
CN15). 

Blocks CN12 to CN14: These blocks are entered on 
the first attempt or on any other attempt to write an 



end of file if an eot was not sensed. ir4 is tested to de- 
termine if 25 attempts have been made. When 25 at- 
tempts have been made, subroutine redio prints an 
on-line message indicating that there have been 25 
erases during write. ir4 is then reset for 25 more at- 
tempts. If 25 attempts had not been made, the print-out 
is bypassed and ir4 is not reset. Control returns to 

WEF4 + 1 ( Block CN02 ) . 

Blocks CN15 to CN17: These blocks are entered 
when an eot is sensed on any attempt after the first at- 
tempt to write an end-of-file. The tape unit address is 
placed in the mq. Subroutine cvprt is used to convert 
this unit address to a symbolic designation for the unit 
and print a message indicating an end-of-tape sensed 
during an erase. Subroutine stop is then used to pro- 
vide a dead stop halt. 



Disk Recovery Routines 

Charts cp and cr show the recovery routines used when 
errors are encountered using disk. One of four correc- 
tive actions is used to recover from an error. Action 1 
attempts the same command sequence one additional 
time; if the same error occurs the second time sel- is 
entered with the appropriate indication in the sense 
indicators. 

Action 2 attempts the same command sequence up 
to four times. Two seeks are then issued to recalibrate 
the arm. The original seek issued by the user is re- 
peated and up to four more attempts are made to per- 
form the operation. If the same error occurs on the 
fourth attempt after the second seek, sel- is entered 
with the appropriate indication in the sense indicators. 

Action 3 attempts the same command sequence up 
to four times. If the same error occurs after the fourth 
attempt, sel- is entered with the appropriate indica- 
tion in the sense indicators. 

Action 4 issues a seek to move the arm from the ce 
track. The original seek requested by the user is re- 
issued, and SEL+ is re-entered once to attempt the com- 
mand sequence again. If the same error occurs, sel- 
is entered with the appropriate indication in the sense 
indicators. 

Figure 3 shows the recovery action taken for each 
type of error encountered. 

Blocks CPOl to CP05: These blocks are entered from 
xtrap when an Unusual End is received during a disk 
operation. Bit 35 of the sense indicators is set to 0, and 
the redundancy count from urrx, 1 is placed in ir2. 
The SNSDTA bits are picked up and masked out as in- 
dicated by the the contents of rctx, 1 which contains 
the address of a mask of the bit positions that are to 
be ignored. If rctx, 1 is 0, all the bit positions in 
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Type of Error 


Action 


Abbreviations 




Invalid sequence 
Invalid code 
Format check 
No record found 
Invalid address 


1 
1 
1 

2 
4 


rSEQ 

I'CDE 

FRMCK 

NOREC 

I'ADR 


Proaram 
Check 


Response check 
Data compare check 
Parity/cyclic check 


3 
3 
3 


RSPCK 

DCOMP 

P/CCK 


Data 
Check 


Access inoperative 
Access not ready 
Disk circuit check 
Control unit circuit check 


1 
1 
1 

1 


INOPR 
NTRDY 
DKCRK 
CUCRK 


Exceptional 

Condition 

Check 



Figure 3. Recovery Actions for Specific Disk Errors 

SNSDTA will be checked. After masking out the unde- 
sired bits, the accumulator is checked to determine if 
any bits remain. If no bits remain, control transfers to 
DEND2 (Block CD16). If any error bits remain, the sense 
indicators are saved in duesi and the masked snsdta 
bits are placed into the sense indicators. The present 
error bits are compared with the previous error bits in 
DUELL; if they are not the same, the accumulator is set 
to zero. 

Blocks CP06 to CP09: The sense indicators are 
checked to determine into which category the error 
falls. If any of the data check error bits are set, control 
transfers to datck (Block cpi?) to take Action 3. If 
any of the exceptional condition error bits are set, 
control transfers to excnd ( Block cpio ) to take Action 
1. If the proper bit indicating an invalid address is set, 
control transfers to ngadr ( Block cboo ) to take Action 
4. If the bit indicating no record found is set, control 
transfers to norec ( Block croi ) to take Action 2. Error 
conditions that are not detected by any of the previous 
tests (invalid sequence, invalid code, or format check) 
allow control to pass to excnd (Block cpio) to take 
Action 1. 

Blocks CPIO and CPU: This is the entry point when 
Action 1 is required. The error indications are checked 
to determine if the errors are the same as those ob- 

control transfers to Block cp20. 

Block CP12: This block is entered whenever the er- 
rors found during any corrective action are not the 
same as those found on the '•Previous attempt, urrx i 
is reset to 0. 

Blocks CP13 and CP14: The snsdta bits are masked 
against those requiring any corrective action, and the 
result stored in duell. duell is the location where the 
previous error indications are stored. 

Blocks CP15 and CP16: The redundancy count in 
URRX, 1 is incremented by 1, and the accumulator sign 
is set to minus. Subroutine issek is entered to clear out 
any error conditions; upon return from this subroutine, 
control transfers to end] 3 (Block ce2o). 



Blocks CP17 to CP19: These blocks are entered to 
take Action 3. The mask for the data check bits is 
picked up and placed in the mq. The accumulator is 
tested to determine if the errors are the same as the 
last time. If the errors are not the same as the last time, 
control transfers to Block cpi3 to store the new error 
information and issue another seek. If the errors are 
the same, ir2, which contains the error count, is tested 
to determine if there have been four attempts to cor- 
rect the same error. If there have been four attempts, 
control transfers to duen2 (Block cP2i) for an error 
message print-out. If there have not been four attempts, 
control passes to dueni (Block CPis) to issue another 
seek. 

Block CP20: This block is entered whenever Action 

1 is required, and the errors are the same as those last 
obtained. ir2 is tested to determine if this is the first 
error. If this is the first error, control transfers to dueni 
( Block CP13 ) to issue another seek. 

Blocks CP21 to CP23: These blocks are entered 
whenever it is necessary to print an on-line error 
message. The unit address is converted using sub- 
routine SYUNCv, and stored in the message image. Word 

2 of the UCB is tested to determine if this operation is a 
read or write operation, and the appropriate message 
is added to the error message. The track address is 
picked up from words 3 and 4 of the ucb and stored in 
the error message. 

Blocks CP24 to CP27: The snsdta bits are com- 
pressed to remove those bits in the word that have no 
meaning. These compressed bits are examined one bit 
at a time, and a composite error message is built up 
containing all the error indications found. Subroutine 
PROUT is used to print this message, and the sense 
indicators are restored before returning control to the 
trap supervisor at dend2 (Block cdig). 

Blocks CROI to CR08: This is the entry point to per- 
form Action 2. The mask for the bit that indicates no- 
record-found is loaded into the mq. The accumulator is 
tested to determine if the errors are the same as those 
that occurred on the last attempt. If the errors are 
difi^erent, control transfers to Block cpi2 for another 
seeK anu an entry into sel + . If tue errors are the same, 
IR2 is tested to determine if there have been less than 
four errors. With less than four errors, control transfers 
to DUENI (Block CP13) to eventually re-enter sel + . If 
the error count is four or greater, ir2 is tested to deter- 
mine if the count is eight or greater. When such a 
count is indicated, control transfers to duen2 (Block 
CP21 ) for an error message print-out. If the count is less, 
than eight, ir2 is next tested to determine if there are 
more than four errors. Because prior tests have deter- 
mined there were not less than four errors nor greater 



than seven errors, this test will indicate if there are 
exactly four or from five to seven errors. If the error 
count is from five to seven, control transfers to dueni 
(Block CP13) to clear out the error indications and 
eventually return to sel+. If there were exactly four 
errors, the original track address is saved and an illegal 
address placed in the ucb. ir4 is set to zero to cause two 
seeks to be issued before reissuing the original seek 
requested by the user. Control then transfers to duent 

( Block CR13 ) . 

Blocks CR09 to CR12: This is the entry point to per- 
form Action 4, which is required for an invalid address 
type of error. The mask for the bit indicating invalid 
address is placed in the mq. The accumulator is tested 
to determine if the errors are the same as those that 
occurred on the last attempt. If the errors are different, 
control transfers to Block cpi2 for another seek and an 
entry into sel + . If the errors are the same, ir2 (which 
contains the number of recovery entries into sel+ as 
found in urrx, i ) is tested to determine if the count 
equals zero. If the count is zero, control transfers to 
DUENi (Block CP13) for a return to sel + . If more than 
one recovery attempt has been made, ir4 is set to two 
to indicate that another seek is to be issued to re- 
calibrate the arm. ir2 is set to point to the ucb. 

Blocks CR13 and CR14: Words 3 and 4 of the ucb 
are set to minus. The sign of word 3 ( minus ) indicates 
to lOEX that a seek is requested by the user. The sign 
of word 4 (minus) indicates to ioex that the track 
address is already contained in words 3 and 4 in bcd. 
Therefore, ioex does not have to convert the binary 
address specified by the address in word 4. ir4 is saved 
and subroutine isski is entered to issue one seek. 

Blocks CR15 and CR16: Attention interrupts and 
traps are enabled on this one channel, and the main 
program loops, waiting for the interrupt. 

Blocks CR17 to CR19: This is the point at which 
control is returned from the save routine after an inter- 
rupt. Subroutine datns is used to process all attentions 
received. The af flag is turned off by this routine for 
each attention received. The desired af flag is tested to 
determine if the proper attention signal was received. 
If the desired signal was not received, control transfers 
to DUEN8 (Block CR15) to enable interrupts again and 
wait for the next trap. If the desired af flag is now off, 
iR-t is reset to the value of "K". The value of "K" is used 
to determine if the proper number of seeks have been 
issued in an attempt to recalibrate the arm before re- 
issuing the original seek requested by the user. 

Blocks CR20 to CR22: im is tested to determine if the 
value of "K" is greater than 4. This would occur after 
the second seek is received during an invalid address 
recovery. In this case, control transfers to Block cpi') 
to reissue the original seek and try the operation again. 



If "K" is not greater than 4, ir4 is tested to determine 
if "K" is equal to 0. "K" would be equal to if the re- 
covery attempt is for a no-record-found error. If "K" is 
not zero, indicating that the first recafibrate seek has 
been issued for a no-record-found recovery, control 
transfers to dueio (Block cr23). If "K" is equal to zero, 
the original track address is replaced in words 3 and 4 
of the ucb. 

Block CR23: If "K" is less than 4 and greater than or 
equal to 0, it is incremented by 3; and control transfers 
to DUEN7 (Block CR13) to eventually issue another seek. 



Issue Seek Routines 

The issue seek routines will issue one seek for an arm 
whose ucb is indicated, or will issue seeks for all arms 
on the channel that have their af flag on and their pf 
flag off. The sign of word 4 of the ucb indicates to the 
routine the status of the track address contained in the 
ucb. If the sign of word 4 is + , the binary number con- 
tained in the address of word 4 is converted to bcd to 
form the track address. If the sign is — , the routine con- 
siders that the track address has already been con- 
verted to BCD and appears in words 3 and 4 of the ucb. 
Upon exit from the routine, the sign of ucb word 4 will 
always be reset to + . 

ISSKI — Issue One Seek Routine 

Block CSOl: This is the entry point for one seek, iri 
is saved, the stcx instruction is picked up from the stcx 
table, and iri is set to 1. 

ISSEK — Issue Multiple Seeks Routine 

Blocks CS02 to CS05: This is the entry point if the 
user desires to issue seeks for all arms with their af 
flag on and pf flag off. ir2 and ir4 are saved; ir4 is set 
to the location of the channel program, which is in the 
accumulator at this time for an isski entry. The accu- 
mulator is tested to determine if the entry is from isski 
or ISSEK. If the accumulator is plus, the entry is from 
isski and control transfers to issi (Block csog). If the 
accumulator is minus, the entry is from issek. iri is 
saved, and ir2 is set to point to the first disk ucb for this 
channel. ir4 is set to the location of the channel pro- 
gram, and iRi to the number of arms on the channel. 

Blocks CS06 to CSll: The seek request flag, af, and 
the seek issued flag, pf, are picked up from word 3 of 
the ucb for both the isski and issek routines. 

These flags are tested for the following condition: 
af on, and pf off. If this exact condition is not met, 
control transfers to issk (Block csio). If this condition 
is met, word 4 of the ucb is picked up. The sign of 
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word 4 IS tested to determine it tne track address con- 
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If the 
sign is 1, indicating that the address is already in bcd, 
control transfers to iss3 (Block csi2). If the address has 
to be converted, subroutine bcvdec is used to perform 
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STOP prints one on-ime message indicating tnat trie pro- 
gram cannot ■'Proceed and transfers to a "halt-transfer" 
instruction which transfers to its own location. 

PAUSE/PAWS Routines 



in words 3 and 4 of the ucb. The two high-order char- 
acters are placed in word 3 and the two low-order 
characters are placed in word 4. 

Blocks CS12 to CS14: Word 4 of the ucb is set to 
plus, and ib2 is saved. A ctl instruction with its address 
set to the location of word 3 of the ucb is generated, 
and placed in the channel sequence. The pf flag is 
turned on. 

Blocks CS15 to CS18: iri is tested to determine if 
there are any more ucb's to check. If there are more 
ucb's to be checked, (as on an issek entry), control 
transfers to issi (Block csoe) to check the af and pf 
flags of this UCB. Otherwise, the wtr instruction is 
placed into the channel sequence as the last instruc- 
tion. iRi is restored, and the desired sdcx (store diag- 
nostic channel) instruction is placed in iss7. The desired 
STCX instruction is placed in the rchx table. 

Blocks CS19 to CS24: The rchx instruction is exe- 
cuted, and the tcox instruction in the tcox table is set 
to return to this routine. The tcox instruction is exe- 
cuted to determine when the channel completes its 
operation. When the operation is complete, the sdcx 
instruction is performed to store the results of this 
operation in isseh. The contents of isseh are picked 
up and the bits indicating an unusual end condition 
are extracted from this word. The accumulator is then 
tested to determine if there was an unusual end on the 
last seek operation. If there was an unusual end, con- 
trol transfers to iss8 (Block cs25). Otherwise, ir2 and 
IR4 are restored and control returns to the calling pro- 
gram via 1, 4. 

Blocks CS25 to CS28: On an unusual end, the old 
setting of the enable switch, enbsw, is saved in isseh 
temporarily, and enbsw is set. Subroutine prout is used 
to print an on-line message indicating an unusual end 
during a seek. Subroutine pause then provides a tem- 
porary stop to allow for operator intervention. When 
the operator depresses start, the original setting of 
enbsw is restored. Control returns to isse ( Block csi9 ) 
to attempt the command sequence again. 



Machine Pause and Stop Routines 

Chart CT shows the two routines in ioex used to pro- 
vide a temporary stop for operator action, and a dead 
stop from which there is no normal recovery. Sub- 
routine pause has two entry points : one for each of two 



A message will be printed which accompanies a request 
for operator intervention. Traps are disabled, and the 
entry switch is set to provide the desired message 
print-out. 

Blocks CT02 to CT06: This is the entry point labeled 
paws, a message will be printed which accompanies a 
notice to the operator of some difficulty that might re- 
quire termination of the program. The operator gen- 
erally can either ignore the problem and continue with 
the program or delete the job. Traps are disabled, ir4 is 
saved, and the setting of the enable switch (enbsw) 
is saved. ( Disabling traps is redundant if the entry was 
at PAUSE, but is provided at both entries to prevent a 
trap from interrupting the sequence once it has 
started), enbsw is cleared to prevent the trap super- 
visor from enabling traps when the print-out is com- 
pleted. The entry switch, pstsw, is tested to determine 
which entry was used. The address of the desired mes- 
sage is placed in the prout calling sequence and sub- 
routine PROUT is used to print this message on-line. A 
"halt-proceed" causes a temporary program stop to 
allow the operator to check what has been printed and 
take any action that might be indicated. 

Blocks CT07 to CTIO: When the operator depresses 
START, subroutine prout is used to print the second line 
of the message. The original setting of enbsw and 
IR4 are restored. The entry switch, pstsw, is cleared and 
enbsw is tested to determine if traps should be enabled 
upon exit from this subroutine. If enbsw is zero, trpsw 
is tested. If trpsw is also zero, traps are enabled. If 
TRPSW is not zero or if enbsw is not zero, traps are not 
enabled. Control exits to the calling program via i, 4. 

STOP Routine 

Blocks CTll to CT14: This is the entr^' for the stop 
routine, which is used to provide a halt from which 
there is no normal recovery. Traps are disabled, ir4 is 
saved, and the enable switch, enbsw, is set. Subroutine 
prout is used to print the on-line message cannot 
proceed. 

After returning from subroutine prout, enbsw is 
cleared, ir4 is restored and control transfers to a "halt- 
transfer" instruction which will retain control each time 
start is depressed. The only recovery from this halt 
would be to manually transfer to one of the locations 
in the nucleus that would restart the program. One 
typical use would be to manually transfer to location 
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and after the temporary stop is received. Subroutine ibsys after completion of the dump. 
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TEST — File Validity Test Subroutine 

Subroutine test, shown on Chart cu, is used to test the 
vahdity of a file specified in an actv or ndsel calling 
sequence. The address of the ucb specified is checked 
to determine if it lies within the range of the valid ad- 
dresses. If the UCB address specified is valid, control 
returns to either actv + i or ndsel + 1. If the unit specified 
was invalid, the address of the reference is converted to 
BCD and printed on-line with a message indicating an 
illegal unit reference. Subroutine stop provides a dead 
stop halt, because this is a condition from which there 
is no normal recovery. 

Blocks CUOl to CU04: Traps are disabled and iri is 
saved on entry to this subroutine. The address of the 
UCB is picked up from the file reference in the calling 
sequence, and placed in iri. iri is then compared with 
the upper and lower limits of the valid ucb addresses 
to determine if the specified ucb lies within this range. 
If the UCB address is not within this range, control 
transfers to tsti ( Block cu08 ) , 

Blocks CU05 to CU07: If a valid ucb address is in- 
dicated, the availability flag in word 1 of the ucb is 
tested to determine if the unit is available. If the unit 
is not available, control transfers to tsti ( Block cuo8 ) . 
If the unit is available, the exit address is calculated 
using the value set in ir4 by the original transfer to 
actv or ndsel. iri is restored and control returns to 
either actv+i or ndsel +i, as determined earlier. 

Blocks CU08 to CU13: The effective address of i, 4 
is calculated using the value of ir4 as set by the original 
transfer to act\^ or ndsel. This address is then con- 
verted to BCD using subroutine bcd5, and stored into 
the error message, enbsw is set, and subroutine mwti 
is used to print an on-line message indicating an illegal 
unit reference at the location determined, (mwr is 
another entry label which provides the entry to sub- 
routine prout. ) Subroutine stop provides a dead stop, 
because the error indicated would not normally allow 
the program to continue to completion. The operator at 
this time might be instructed to transfer to location 115 
to provide a dump of the program. The dump program 
would return control to ibsys after completion of the 
dump to enable the next job to be processed. 



Perform SNS and Form Disk Order Subroutines 

The DATNs routine on Chart cv is used to perform an 
SNS on a particular channel, iri contains the comple- 
ment of the channel number minus one on entry to the 
routine. The subroutine will check the attention bits 
received by the sns routine, and turn off both the af 



and PF flags for all arms which received an attention 
bit. 

The FDAMT routine on Chart cv is used to form a 
disk address and generate the disk order to locate this 
address. The calling sequence for the routine is shown 
on the chart along with the values required in ir4 and 
the MQ at entry time. The results at exit are also shown 
on the chart in the same block. 



DATNS — Perform SNS Routine 

Blocks CVOl to CV09: ir4 is saved to be used in re- 
turning to the calling program. ir2 is set to twice the 
value in iri, to be used in locating the channel interrupt 
cell. The channel interrupt cell is set to transfer to the 
second entry point in the channel sense program. The 
proper stcx instruction is executed for this channel to 
start the sns operation. The tcox instruction is set 
to return to this routine, and then executed. When the 
channel is no longer busy, the channel interrupt cell is 
restored, and the attention bits that were received are 
packed and placed in the high-order position of the mq. 
IR2 is set to point to the first disk ucb for this channel, 
and IR4 is set to the number of arms attached to this 
channel. 

Blocks CVIO to CV13: Each attention bit is checked 
individually. If an attention signal was received, the af 
and PF flags are turned off for that ucb. After the last 
bit is tested, ir4 is restored and control returns to the 
calling program via i, 4. 



FDAMT — Form Disk Order Routine 

Blocks CV14 to CV20: This is the entry point for the 
FDAMT routine. The last four characters in the first 
word of the calling sequence are masked off in the call- 
ing sequence itself. The first two characters in the mq 
are shifted off which leaves the bcd track address in the 
high-order positions of the mq. The unit address is 
picked up from word 1 of the ucb and placed in the 
accumulator address. 

The access and module are shifted into the mq. The 
interface number is masked off and added to word 1 of 
the calling sequence. The access is shifted back into 
the accumulator, and zone bits are added to the module 
designation before shifting the access back into the 
MQ. The MQ now contains the bcd representation for 

AMTTTT. 

Blocks CV21 to CV26: A crq instruction is executed 
to convert all bcd zeros to 12. The 12 is the con- 
figuration required in the channel for a zero. The ad- 
dress of the second word of the disk order is calculated 
and placed in the instruction which will store this part 
of the order. All except the first two characters of the 
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original disk order are masked out. The characters gram then waits for the trap on cuannei A. Wnen tnis 

J ,„j_' _t--ri. — 1 .'-i.^ j-U- _..i„4- — — J 
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added to the first two characters in the first word of the 
order. The two last characters of the track address are 
shifted into the accumulator, and combined with the 
characters denoting rrox in the caihng sequence. This 
result is stored in the second word of the disk order. 
The character shown as "X" will appear in the second 
word of the disk order but is ignored by the channel. 
Control returns to the calling program via 3, 2. 



On-Llne Print, Punch, and CVPRT Routines 

Chart cw shows the routine used to print a line or 
punch a card on-hne. In addition, this chart shows one 
of the smaller routines used by prout and the cvprt 
routine used to print an error message concerning a 
particular tape unit. 

Subroutine prout causes an immediate print-out of 
the desired on-Hne message before returning to the call- 
ing program. If the printer channel is active, the sub- 
routine will wait for the trap on this channel only, and 
then print the message without processing the prior 
trap. After the message has been printed, the original 
trap v/ill be processed. 

Subroutine cvprt generates a prout calling sequence 
for a desired message print-out. The tape number in 
the left half of the mq is converted to its symbolic form 
and the phrase tape xx is appended to the error mes- 
sage. Subroutine prout is used to print the completed 
message. 

FRSwi, FRSW2, and FRSwa are switches used for com- 
munication between the prout subroutine and xtrap. 
They indicate that the prout routine is to be completed 
prior to processing a trap, and that there are one or 
more traps to be processed before returning to the 
original program that called the prout subroutine. 
There are four cases where the prout subroutine may 
be "''ed v/i*'h som** '^onfi'^"ra''ion of '^hann'^1 A and 
another channel either active or trapped. 

Case A consists of an entry to prout with channel A 
dormant. Traps are disabled on entry to the routine, 
so it does not matter if any other channel is active. The 
PROUT request is processed and control returns to the 
calling program after enabling the traps that had been 
disabled. 

Case B consists of an entry to prout with channel A 
active and also trapped. This situation is handled in 
exactly the same manner as case A. 

Case C consists of an entry to prout under the fol- 
lowing conditions: (1) channel A active and not 

l-»-o»>T^a/4 OT>^ /0^ r,r\ rvfViov r»V»or»no1 4-rciTM-»ori Trac\%Tf ic 

set and traps are enabled on channel A only. The pro- 



ACOMM, and the prout request is processed before 
completing the processing of the channel A trap. After 
the PROUT request has been processed, frsws is set and 
control returns to the save routine to complete the 
processing of the trap which was forced on channel A. 
After processing the trap, frswi is cleared and because 
FRSW2 is not set, frsws is also cleared. Control returns 
to PROUT so that PROUT may return to the program that 
originally made the prout request. 

Case D consists of an entry to prout with channel A 
active and another channel trapped, frswi is set and 
traps are enabled on channel A only. The program then 
waits for the trap on channel A, When this trap is re- 
ceived, the channel information is saved in acomm, 
and the prout request is processed before completing 
the processing of the channel A trap. After the prout 
request has been processed, frsw2 is set and the sub- 
routine exits to complete processing of the original 
channel trap (not channel A). When exiting from 
xtrap at the completion of the original trap, frswi is 
cleared, and because frsw2 is not zero, control returns 
to xtrap to process the channel A trap that had to be 
forced, xtrap will now use the information that was 
saved in acomm at the time the trap was forced. At 
the completion of this trap processing, fhsw2 is cleared, 
and the normal exit from xtrap in out will be taken. 



(PROUT and (PUNCH Routines 

Block CWOl: This is the entry point for the (punch 
routine. Traps are disabled and the punch switch, 
puNsw, is set. 

Blocks CW02 to CW07: This is the entry point for 
the (PROUT routine. Traps are disabled, and the exit 
address is computed using the value in ir4 and the 
value contained in the first word of the calling se- 
quence. The exit address is stored as the regular exit 
address if frsws is zero. If frsw3 is not zero, indicating 
that there is another on-line message to be printed, the 
original setting of the exit address will not be changed. 
The value of ir2 will also be saved in the proper exit 
location as indicated by frsws. ir2 is then set to the 
number of calling sequence words as indicated in the 
first word of the calling sequence, frswi is tested to 
determine if it is necessary to wait for a trap on the 
printer channel before starting the message print-out. 
If it is not necessary to wait for a trap, control transfers 
to Block CW12. If it is necessary to wait for a trap, the 
channel activity cell, chxac, is tested to determine if 
there is any activity on the printer channel. If there 
ic -no T>recc>rit nofivitv OTi this channel control tr^ncfprs 
to Block CW12. If there is activity, the contents of trpsw 
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are compared with chxac to determine if the printer 
channel is the channel that is trapped. If the printer 
channel is the channel that is trapped, control transfers 
to Block CW13. 

Blocks CW08 to CWIO: If the printer channel is not 
the channel that is trapped but is active at this time, 
FRSwi is set and traps are enabled on the printer chan- 
nel only. The main program waits for the channel trap. 
When the trap routine save is entered following a trap, 
FRSWi is tested; because it is now not zero, control will 
return to the prout subroutine without processing the 
data channel trap. 

Block CWll: This is the point at which control is 
returned from the save routine when it finds frswi not 
zero. The printer channel information is temporarily 
saved in acomm. 

Block CW12: This block is entered after a trap on 
the printer channel or whenever it was not necessary 
to force a trap on the printer channel. The accumula- 
tor is cleared. 

Blocks CW13 and CW14: Subroutine sprt is used to 
generate the desired spr or spu instruction. Upon exit 
from this subroutine the accumulator will contain the 
desired instruction if the spr specified in the calling 
sequence was not zero. 

The accumulator is zero if no spr was specified in 
the calling sequence. The channel is tested to deter- 
mine if the channel is busy. While the channel is busy, 
control remains in this test. 

Block CW15: When the channel becomes not busy; 
one calling sequence word is picked up from the call- 
ing program, irs will cause this instruction to step to 
each successive word as it is required. 

Blocks CW16 and CW17: Subroutine bcdhc is used 
to convert the bcd image specified to the Line or card 
image form. There are two returns from this subroutine. 
The return at i, 4 indicates that the line image is not 
full, and the return at 2, 4 indicates that the line has 
been completed. If the return is made to 1, 4, ir2 is 
tested to determine if all calling sequence words have 
been converted. If all have not been converted, con- 
trol returns to Block cwi5 to pick up another calling 
sequence word. 

Blocks CW18 to CW21: When the return from bcdhc 
is made to 2, 4 or the last calling sequence word has 
been converted, the print indicator, print, is cleared. 
print is used by subroutine bcdhc to indicate the col- 
umn where the next portion of the image is to start. 
When print is cleared on an entry to bcdhc, that sub- 
routine clears the print image, and resets its counters 
to start on a new line. After print is cleared, the punsw 
is tested to determine if the entry was to prout or 
PUNCH. Either the printer or punch is selected for 
writing as determined by the results of this test. The 



location of the spr instruction is tested to determine if 
an SPR instruction is required for this line of print. If 
this location is zero, it is skipped. If this location is not 
zero, the instruction will be executed. ( Subroutine sprt 
places the desired instruction in the spr location. ) The 
image is printed or punched as required, and ir2 is 
tested to determine if there are any more calling se- 
quence words in the hst. If there are more in the list, 
control transfers to prti (Block cwis) to set up the 
next SPR instruction and convert the next line. 

Blocks CW22 to CW25: When the list of caUing 
sequence words is completed, subroutine sprt is used 
to set up the last spr instruction one more time. Upon 
return from sprt, the accumulator is tested to deter- 
mine if an SPR instruction was requested. If none was 
requested, control transfers to Block cwi6. Otherwise, 
PUNSW is tested again, and either the printer or punch 
reselected as determined by the setting of punsw. The 
SPR instruction is executed, and the channel is tested to 
cause a loop until the channel is not busy. 

Blocks CW26 to CW29: punsw is cleared to indicate 
that future entries to this subroutine will be considered 
entries to (prout unless they enter at (punch and set 
punsw. FRSwi is tested to determine if there might have 
been traps forced on the printer channel at the begin- 
ning of this subroutine. If frswi is zero (no forced 
trap ) , control transfers to prtx2 ( Block cw32 ) , to set up 
the exit to the calHng program. If frswi is not zero, 
TRPSW is tested to determine if the subroutine is being 
used during trap time. If trpsw is not zero, indicating 
trap time, control transfers to Block cw30 to set up the 
proper exit. During non-trap time, frsws is set, and 
control transfers to sa\'ei ( Block cco3 ) to complete the 
processing of the printer channel trap which had been 
previously interrupted. 

Blocks CW30 and CW31: During trap time, frsws 
is tested to determine if there is another on-line mes- 
sage waiting to be printed. If frsws is not zero, indi- 
cating another message is waiting, control transfers 
to PRTAX ( Block CWS4 ) , to Set up the exit to the calling 
program. If no additional message is waiting, frsw2 
is set. 

Blocks CW32 and CW33: ir2 is restored, and trap 
status is restored to the condition it was when the sub- 
routine was originally entered. Control transfers to the 
calling program at the point immediately after the last 
word of the calling sequence (N + 2, 4). 

Block CW34: If there is an on-line message waiting 
to be printed, ir2 is restored, and control transfers to 
the main routine which called prout. In this case, 
traps would not be restored since this use of prout is 
during a time when traps should not be enabled. The 
return is to the location immediately after the last 
word of the calling sequence (N+2, 4). 
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used bv PROUT, It is entered with the caninf senuence 
word in the accumulator. The location spr is cleared to 
remove the old instruction. The accumulator is shifted 
right to move the bcd image location and word count 
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right adjusted. The accumulator is tested to determine 
if any spr code was requested. If none was requested, 
control exits to the prout subroutine via i, 4. If some 
SPR code is present, punsw is tested to determine if the 
resulting code is to be used for the printer or punch. 
As a result of this test, the basic sense instruction is 
added to the specific code to produce the desired sense 
instruction for that particular unit. The instruction thus 
generated is stored in the spr location to be executed 
when necessary. 



Blocks CW4Q to CW44: This is the cvprt subroutine 
used to print a tape error message on-line. It is entered 
with the tape unit address in the left half of the mq. 
IR4 is saved, and the prout calling sequence is gener- 
ated. Subroutine syuncv is used to convert the tape 
address to the symbolic form of channel/unit (i.e., Ai, 

B4, CO, H4; RDA, PUG, PRE, RDH, PUF; CDOO/0, ADOO/l, BDOO/1, 

HDOO/1, DDOO/0, EFOO/1. This symbolic form is stored in 
the message image following the word unit. The mes- 
sage is printed along with the message indicated in the 
CVPRT calling sequence by subroutine prout. At the 
completion of subroutine prout, ir4 is restored, and 
control returns to the calling program via 2, 4. 
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CHECKPOINT 



CLEAR 

ACTIVITY 

CELL 



• PICKUP 

» LOCATION OF 

•SELECT ftCUTlNE 



OCHSW = 

AND/OR 

PLUS 



SET 

ACTIVITY 

CELL 



»««•*«« 



LOCATION 

EQUALS 

ZERC 



eG6 X 20 
<»»»*£ 4»»**»**»** 
•ISSEK CSB2« 

»-*—»—*-•—»—»—♦-« 

X» ISSUE ' 

» ONE < 

• SEEK < 



»»**»F2****** 
f 

• CLEAR 

• PRIORITY 

• CELL 



XEC STCX 

ENABLE 

ATTENTION 

INTERRUPTS 



CLEAR 

UCB 

WORD 2 



SET NORMAL 

REDUNDANCY 

MODE 

IF 7909 



REDUNDANCY 

TRAP 

CONTROL 



» INITIALIZE » 

.X» SEARCH FOR » 

• WAITING UNIT * 



►»»H3» 

SET 

TRAP SWITCH 

AND 

CHANNEL 

ACTIVITY 



.1.4 I 

■»«»»H4 »••»•»»»• 
HiXXXXXX 

.X»SELECT ROUTINE 

» -USER- 

.2.4 



Chart CF. BGl routine. Initiate Channel Operation, Sheet 1 
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CG 



» SET S(DCHSVll) » 

* MINUS AND * 

<• STEP IR2 TO • 

•TEST NEXT UNIT • 



>***AS*>****««* 

CLEAR 

TRAP SWITCH 

AND OCHSW. 

RESTORE SENSE 

IND.. AND IRl 



UCB 

WORD 2 

ZERO 



► RESET IR2 
<t TO TEST FOR 
•SELECT ROUTINE 



LAST 

UNIT 

CHECKED 



2ND 

SEARCH 

DONE 



RETURN TO PROGRAM 
AT POINT INTERRUPTED 
BY DATA CHANNEL TRAP 



X2 X 13 
«««»*D5 **•***•••• 

• RESTORE * 

• IR2 AND IR4 * 
* ACC. MQ, « 

•OVFL INDICATORS' 
'EXIT 'AND TTR STATUS • 



•****E5«« 



REINITIALIZE 
FOR ANOTHER 

SEARCH 



**»»»F2* ****** 

• COMPUTE 

• L(UCW) AND 
<• STORE IN 

• PRIORITY 
» CELL 



X 


.. ..* 


. 




FRSW2 
ZERO 








* 




*CC ♦ 








» » 


» E2* 


XTRAP 






» 



«***«G5****** 



Chart CG. BGl routine, Initiate Channel Operation, Sheet 2 



lOEX 81 



MOVE 
INSTRUCTION 



XEC BSR 
TWICE 



INCREMENT 

RECORD COUNT 

BY 1 



REDUCE IR2 

BY 10 

AS LONG AS 

POSSIBLE 



>»>BS**«*«1 

SKIP 

2 

RECORDS 



» SUPPRESS 

REDUNDANCY 
► MESSAGE 



1ST TIME 



NOISE 

RCCOfiD 
TEST 



PRINT 

REDUNDANCY 

l"£SSA6t 



PICKUP TAPE 

POSITION FROM 

UCB WORD 3 



TURN OFF 

REDUNDANCY 

INDICATOR 



SET PERMANENT 

REDUNDANCY 
BIT IN URRX.l 



RED IB 

»»»»»F2 

»RED50 



»#>»>F3**>**>**** 

» SET BIT 2 OF • 

• SENSE » 
^•INDICATORS TO I* 

• USED BY StL- » 



RECORD 

COUNT 

TO IR4 



UNIT ADDRESS 

TO RCS 

INSTRUCTION 



RECORD » YES. 

COUNT *..X. 

LT/EQ I » 



Chart CH. Read Redundancy Recovery routines 



•COMPLEMENT 

RECORD 
» COUNT 
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CJ 



RED20 
»»»»»A2« 

»Heoio 



PRINT 

REDUND/INCY 

MESSAGE 



NOISE 

IN ERASED 
AREA 



r>*>«B3 >•******* 

» SET 
►SIGN MINUS AND 
► REPLACE IN 
» CHANNEL 
» ACTIVITY CELL 



INCREMENT 

REDUNDANCY 

COUNT 



UNIT 
ADDRESS 
TO RED6 



ATTEMPTS 



>*E3>c**>< 

XEC BSR 



PRINT 

REDUNDANCY 

MESSAGE 



SETUP f»CHX 

INSTRUCTION 

AND 

DISABLE 

TRAPS 



CONVERT TAPE 
UNIT ADCR AND 
PRINT MESSAGE 



RED6 X 

* WHS AND 

• XEC RCHX 

• TO WRITE 

• BLANK TAPE 



DEAC 

STOP 

ROUTINE 



»>*<H3***>*<*« 

REDUCE COUNT 

BY 25 

UNTIL IT IS 

25 OR 

LESS 



•INDICATE ERASE 
1 AREA WRITTEN 
t IN URRX.l 



Chart CJ. Write Redundancy Recovery routines 



lOEX 83 



CK 



INCREMENT 
REOUNDAMCY 
COUNT BY 1 



SAVE IR4 



PUT COUNT 
IN 

tm 



lnt***B3*»* ******* 

* GET VARIABLE » 
•PART OF MESSAGE* 
» AND » 

* PUT INTO » 

* PRINT IMAGE • 



PICKUP 

CHANNEL DATA 

FROM COMM 



t***C2******** 

UNIT ADDRESS 

TO RE014 AND 

ACCUMULATOR 

ADDRESS 



GET » 

FILE POSITION • 

FROM » 

UCB WORD 3 » 



t***C'i******** 

SUBTRACT 

ORIGINAL 

DATA CHANNEL 

COMMAND 



C5 » • 

READ 
OR 

WHITE 



► •H3« 



• STORE IN * 
»PRINT IMAGE AND* 
•PICKUP TAPE N0.« 

• FROM UCB • 

• WORD 1 « 



CONVERT TAPE 
NO. AND PRINT 
ERROR MESSAGE 



»»K3»*»*»« 



* WORD 

COUNT MORE 
» THAN 2 



»»»»»D5**»*»»»«»« 
•SET BIT IN TRAP* 

• TO ALLOW • 
•REDUNDANCY TRAP" 

• ON THIS * 

• CHANNEL • 



STORE 

IN 

PRINT IMAGE 



h*»*«E4^<**«***^4 
' RESET * 
' NOISE RECORD < 
I INDICATOR * 

' IN SENSE IND. * 
l(SIGN=0 -NOISE)< 



.X^ RESTORE IR4 • 



X 09 

*****F:i********** 

* GET • 
•RECORD POSITION» 

• FROM • 
» UCB WORD 3 • 



RESTORE IH4 



Chart CK. Redundancy Recovery Subroutines 
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NOSEL 
»TEST 



TEST FOR 
VALID 
FILE 



RETURN IF 

FILE IS 

VALID 



CL 



DISABLE TRAPS 

PICKUP UCB 

WORD 1 



COMPUTE EXIT 
FOR 
WEF 



• ••* 


TRPS 


« 


ZERO 


I .E. 


» 


TRAP 


« 


TIME 


« 



>#***E l»»««»»»« 

►SAVE IRl, IH2, 

►AND SENSE IND- 
» FOR 
» NON-TRAP 
» EXIT 



»SAVE IRI, IR2. » 

•AND SENSE IND. » 

» FOR » 

» TRAP EXIT » 



SET IR2 
TO NON/DATA 
SELECT CODE 



COMPUTE EXIT 

FOR ALL 

EXCEPT WEF 



UCB WORD 1 TO 

SENSE 

INDICATORS 



YES * CARD 
...» OR 

» DISK 



ASSIGN 

CHANNEL 

PRIORITY 



RESET IRl 

FOR 

ERROR exi T 



>**»*F3******«*' 

► GENERATE UCB 
» WORD 2 WITH 
'SELECT ROUTINE 

► ADDRESS AND 

► NON/DATA CODE 



ASSIGN 

CHANNEL 

PRIORITY 



SET 

EXIT 

ADDRESS 



RESTORE 

IRI. IR2. AND 

SENSE INO. 



SAME 
AS TRAP 
CHANNEL 



»*««F4»*<»*«**« 

NON/DATA CODE 
TO ACC AND 

SET IR2 
TO -L(UCW) 



DIRECT ENTRY 
TO SEL+ 
ROUTINE 



SET 

EXIT 

ADDRESS 



' RESTORE 

• IRl. IR2. 
'SENSE IND. AND 
> TRAP STATUS 



PICKUP 

UNIT 
ADDRESS 



► CONVERT UNIT 
'ADDR AND PRINT 

► ERROR MESSAGE 



DEAD 

STOP 

ROUTINE 



Chart CL. NDSEL, Non-Data Select routines 



»• 1.4 OR 
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CM 



NOSl+l X 
••••»A2»»«»»»« 

• SET IfI2 TO 

• -L'.UCW) 

• GETUCBJuO'^D 
» ANU l_ut*H UL 

• UCB WORD 2 



NDS5 X 1 
•*»»»A3»»»»»»»»« 

» UCB WORD 1 TO 
• SENSE !ND= 



A4 » » 14 
« « 

IS TAPE * 
POSITION « 



» SAVE IR4 
.X» PUT NON/DATA 
» CODE IN IR4 



> SAVE » 
t NOISE RECORD • 
» CONDITION • 
* * 

•S(ACC) TO S(MQ>» 



•B5***«<*> 



1 PUT 

I UNIT ADDRESS 
tIN ACCUMLLATOR 
> ADDRESS 



3-7 » WHICH 

,,.»• NON/DATA 
» OP CODE 



CLEAR 

DENSITY BIT 

(20) 



IS TAPE 

AT LOAD 

POINT 



TURN OFF • 
EOT INDICATOR ». 
IF ON » 



FORCE 
BINARY 
ADDRESS 



SET 

DENSITY BIT 

(20) 



••»»ES»»»»»»»« 

RESTORE 
NOISE RECORD 



;(MQ) TO S(ACC)« 



» STORE ADDRESS 
<* IN NON/DATA 
• SELECT TABLE 



I COMPUTE • 

I TAPE POSITION • 

UN ACCUMULATOR • 



REPLACE 
TAPE POSITION 
IN UCB WORD 1 



THIS BLOCK 

PRESENT 

ONLY IF 

IBM tUU ?0'J 



SDNH 

OR 
SDNL 



£T BIT 19 
E AS SIT 20 
ENSITY SAME 

AS AT 
DAD POINT) 



•• THESE BLOCKS 
PRESENT ONLY IF 
IBM EQU 7090 



H2 » • 08 



RESTORE 
UCB WORD I 
FROM SENSE 
INDICATORS 



XGC SELX • 

« 
(NON/DATA » 
SELECT » 
OPERATION) ♦ 



• •2.4 



Chart CM Rp\pof rniiHnps fnr NTISFJ. pvPRnt NDWEF 
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NDWEF X C 

» SETUP 

• I/O ADDRESS 
•AND TRCX INSTR 
» SET FOR 

• 26 ATTEMPTS 



CN 



••*>*C3**»**> 

• SET FOR 
» 25 MORE 
» ATTEMPTS 



PRINT 

25 ERASES 

DURING WRITE 



» IS THIS 

EOT 
•{XEC ETTX) 



f IS THIS 

EOT 
f(XEC ETTX) 



lt«F5 »*•««#«««« 

PICKUP » 

TAPE • 

ADDRESS * 



SET BIT 18 

IN UCB kORO 1 

TO INDICATE 

EOT 



» PRINT 

• EOT 

* DURING ERASE 



» RESET IR4 » 

» TO NON/DATA »X... 

• CODE » 



DEAD 

STOP 

ROUTINE 



Chart CN. Select routine for NDWEF operation 



lOEX 87 



CP 



BIT 35 TO 



>****B2**«*>*«>*« 

•PICKUP DESIRED * 
•SNSDTA BITS AND* 
» MASK OLT A3 « 
» INDICATED * 
» BY RCTX.l 1 



(•«B3<>*«<< 



ANY 

ERRORS 

LEFT 



DUENl X 
•>***C3**«*>«>< 

• SHIFT 

• SNSDTA 
X» MASK 

• INTO 

• ACCUMULATOR 



DUeN2 X 
•»»»»C5» ••»•••• 

• CONVERT UNIT 

• ADDRESS VIA 
<• SYUNCV AND 

• STORE IN 

• DMSSl 



• *»<»02**«»»***<i 

•SAVE SENSE IND. 

• IN Duesi 

• PUT MASKED 
» SNSDTA BITS 
•INTO SENSE IND. 



••»»D 3* •*••♦•• 

MASK OUT 

DESIRED BITS 

AND STORE IN 

DUELL 



■••••D5********< 
» DETERMINE IF 
• READ OR WRITE 
» AND SET UP 
•PROPER MESSAGE 



w**m*^Z* ********* 
» SET ACC=0 IF • 
• NONE OF THE « 
•ERROR BITS ARE « 
•THE SAME AS THE* 
» LAST IN DUELL • 



i»»«»E3»* *»*»••*• 

'INCREMENT URHX • 

► BY 1 AND LEAVE •> 

> ACCUMULATOR » 
f SIGN MINUS • 



•••»ES» *»••»••• 

PICKUP TRACK 

(TTTT) 

FROM UCB 

AND PUT IN 

ERROR MESSAGE 



EXCND X 10 
tint* fK.l*»» ***»»»* 

* PICKUP MASK » 
» FOR PROGRAM • 

K* CHECK AND » 

• EXCEPTIONAL • 
•CONDITION BITS • 



WAS LAST 

ATTEMPT 

THE 4TH 



Chart CP. DKRCV, disk recovery routine, Sheet 1 



•COMPRESS SNSDTA" 
•BITS AND SHIFT • 
» TO HIGH ORDER • 
• OF MQ • 



DUEN« 



25 



tG5*»**^^< 



• DEPOSIT ERROR • 

• MESSAGES AS • 
» REQUIRED KITH » 
•BLNKS FOLLOWING* 
» LAST MESSAGE • 



PICKUP MASK 

FOR DATA 
CHECK BITS 



DUEN6 X Z 

•PROUT CWBl 
»_«_•_»-»-•-•-•- 

• PRINT 2 LINES 
» OF ERROR 

• MESSAGES 



• SAME • 
» ERRORS AS 
.* LAST ATTEHH-I 



(••J5t«*«^«< 

RESTORE 

SENSE 

INDICATORS 



ENTBY FROM SAVE 
AFTER ATTENTION 
INTERRUPT 



CR 



PICKUP MASK 

FOR NO RECORD 

BIT 



PICKUP MASK 
FOR INVALID 
ADDRESS BIT 



PROCESS ALL 

ATTENT IONS 

RECEIVED 



• SAME • 

ERRORS AS 
LAST ATTEMPT 



» SAME • 
• ERRORS AS • 
LAST ATTEMPT 



YES 

OUENl 



LESS THAN 
4 

ERRORS 



URRX, 1 

EQUALS 

7ER0 



RESTORE 
IR4 TO 
VALUE OF -K 



YES 

DUEN2 



SET IR4 TO 2 

POINT 1R2 

TO UCB 



MORE THAN 
4 

ERRORS 



DUEN7 X i; 

• SET UCB WORDS • 
» 4 AND 3 MINUS • 

<»( I.E. AF FLAG)' 
« * 

* SAVE IR4 < 



SET IR2 

TO POINT 

TO UCB 



ISSUE 

ONE 
SEEK 



RESTORE 
ORIGINAL 
TTTT IN UCB 



>***G2**«>***« 

SAVE PRESENT 

TTTT ANC PUT 

AN ILLEGAL 

ONE IN UCB 



>*»»*G3»>>***>** 

f ENABLE 
t ATTENTION 
►INTERRUPTS AND 
t TRAPS ON THIS 
f ONE CHANNEL 



WAIT FOR 

ATTENTION 

INTERRUPT 



INTERRUPT TRANSFERS 
CONTROL TO -SAVE- 
WHICH RETURNS TO 
-DUEN9-. BLOCK AS 



Chart CR. DKRCV, disk recovery routine, Sheet 2 



lOEX 89 



c<; 



'GET STCX INSTR 
» SET IHl TO 1 



PICKUP 

UCB WORD 

( TTTT) 



» MORE < 

UNIT CONTROL 

• BLOCKS t 

• TO DO • 



ISSEK X 02 

» SAVE • 
• If(2 AND IR4 < 
I* SET IH4 TO « 
» LOCATION OF « 
•CHANNEL PROGRAM* 



TTTT 

IN 
BCD 



•PUT WTR INSTR. 
« IN CHANNEL 
• SEQUENCE 



CONVERT 

BINARY TTTT 

TO BCD 



ISSXl X 
«»«>>C4*»«<**«4 

• RESTORE IRl 

• SETUP SDCX 
» INSTR IN 
« ISS7 



>««t*02«*«******« 

» SAVE IRl « 
' SET 1R2 TO * 
•LOCATION OF 1ST« 
• DISK UCe FOR • 
» THIS CHANNEL • 



•PUT 2 HI ORDER 

• CHARACTERS IN 
•UCB WORD 3 AND 
•2 LOW ORDER IN 

• WORD 4 



MOVE STCX 

TO 

RCHX 



X 05 

••••*E2********** 

• SET IR4 TO • 

• LOCATION OF » 
•CHANNEL PROGRAM* 
•SET IRl TO NO. • 
•ARMS ON CHANNEL* 



ISS3 X 

*****£3»*»*«*« 
•SET UCB WORD 

• TO PLUS 

• SAVE IR2 



XEC RCHX 



PICKUP 

AF ANC PF 

FRON 

UCB WORD 3 



••**F3»»*****»« 

GENERATE 

CONTROL INSTR 

AND STORE IN 

CHANNEL 

SEQUENCE 



**• ••FA ••*•••« 

• SETUP TCOX 



»F5*^^*^*«^^* 



»-xec tcox- 

IS CHANNEL 
» BUSY 



OPERATOR 

ACT ION 

PAUSE 



PRINT 

UNUSUAL END 
ON SEEK 



ISS8 _ . 

• SAVE OLD 

• ENBSW 

(» IN ISSEH AND 

• SET ENBSW 



Chart CS. ISSEK and ISSKl, Issue seek routines 
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CT 



PAUSE X 01 

»»»»»A2»»«»»»»»»< 

• DISABLE TRAPS * 

» SET t 

♦ ENTRY S»lrCH < 
»FOR PAUSE ENTRY* 



DISABLE TRAPS 
SAVE I R4 
SET ENSSW 



PAWS X 02 
>***»B2*<t«»**»*** 

» DISABLE TRAPS • 

<» SAVE IR4 AND » 
» ENBSM » 
» CONDITION » 



•PRINT 

« CANNOT 

» PROCEED 



CLEAR ENBSW 



CLEAR ENBSH 
RESTORE IR^i 



••••D2»»»*»»»»« 

SETUP MESSAGE 

CALLING 

SEQUENCES 

FOR PROPER 

MESSAGE 



:TOPD X 1 

»«»»D4»»»»»»»*< 

> HALT/TRANSFER 



PRIhT 
MESSAGE 
LINE 1 



>>*>F2**«»*>*« 

HALT/PROCEED 



PRINT 
MESSAGE 
LINE 2 



»»**»K1**< 



Chart CT. PAUSE/PAWS and STOP routines 



lOEX 91 



cu 



« • 

« » 

• SAWE IRl • 

« » 



« ADDRESS OF 

• UCB MORD I 

• TO IRl 



TSTl X 

• COMPUTE 

• EFFECTIVE 

• ADDRESS 

• OF !,♦ 



<» CONVERT 
*S OCTAL CIGITS 
• TO BCD 



COMPUTE » 

EXIT • 

ADDRESS » 



**#»*QZ* ********* 
« « 

» STORE • 
• BCD IMAGE • 
» INTO MESSAGE • 
» « 



•***»H2** ******** 



* PRINT • 

* ILLEGAL UNIT • 

* REFERENCE * 

*•*»««<«•*»••«*•« 



-♦-*-»-»—«- 



OEAC 

STOP 

ROUTINE 



Chart CU. TEST routine 
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cv 



OATNS X 
•••••A 1 •*•»•*•*< 

* SAVE IR4 
« 

•SET IR2 TO USE 

• IN LOCATING 
•INTERRUPT CELL 



X 02 

•••••Bl ••*••••••• 

• RESET CHANNEL » 
•INTERRUPT CELL • 
•FOR SNS ROUTINE^ 

• TRANSFER • 

• • 
•••••••••••**••»« 



»»»C1 ••••»••• 

• • 

• XEC STCX.l 

• • 
•••••»«*«•»«« 



•MASK OFF -RROX-* 

• IN CALLING « 

• SEQUENCE • 

• « 

• ••••••••••••••• 1 



>•*••*••••*••>•>•••••••••••>•• «I 

•CALLING SEQUENCE 



TSX FDAMT 
BCI l.OORROX 
PZE ORDER. T 
(RETURN) 



•••••B3^^»»^^»^^» ••»•»•••« 

• SHIFT EXCESS • • 
•BITS OFF -TTTT-^ • 

• IN HQ » • RR 

• • • X 
»•»»•••»••••••••• • ORDER 



•••••C3****^**^^« • 

• • • 

• UNIT ADDRESS • • 
•FROM UCB WORD !• » 
•TO ACCUMULATOR • •- 

• ADDRESS • • 
••••••••«**«•••«« « 



•ENTRY 

RECORD IDENTIFIER 

SHS STATUS - INTERFACE NUMBER 

LOC.OF ORDER TO BE SET UP {T=0/l) 

-LIUCB) 

XXTTTT (BCD TRACK ADDRESS) 

•••••*•••••••»•••••••••••»•»•»•»••»»»< 

•EXIT 

SMS STATUS + INTERFACE NUMBER 
Z2AMTT 
) TTRROX 



•••••»•• •«•«*•••••« 



»••••••••«»•« 



•••••••«•« 



••••Dl •*••••••*• 



••••••••••••»»••• 



••••»03^^^^^»^»»^ 

• » 

• ACCESS » 

• AND MODULE • 
» TO MQ • 

• •••••••»«»«*«•-»« 



• CHANNEL 

BUSY 
•-XEC TCOX- 



SET IR4 TO 
NUMBER 
OF ARMS 



•••••E3>*»^»^^^« 

• MASK OFF 

• INTERFACE NO. 

• AND ADD TO 

• CALLING SEQ 

• WORD I 
•••••••••••••«•« 



•••••Fl ••••••••• 

» RESTORE 

» CHANNEL 

•INTERRUPT CELL 



F2 • • 10 



X 19 

•••••F3^«^^«^«^»« 
•ADD ZEROES FOR • 
» ZONE BITS • 
» FOR BCD • 

• MODULE • 

• DESIGNATION • 
••••»•••••»«*««*« 



• ••••F4^^««*«^^l< 

• MASK OUT ALL 

• EXCEPT 1ST 2 
.X<BCI CHARACTERS 

• IN OLD DISK 

• ORDER 



OATNl X 07 
•••••G I •••••••••< 

• PACK • 
•ATTENTION BITS • 

• AND LEAVE IN * 

• HIGH ORDER OF « 

• MQ « 
••••••••••••«•••• 



•••••G2**^^**^^^^ 

• • 

• TURN OFF • 

• AF AND PF • 

• FLAGS • 

• • 
••••»•»•••»•••»»• 



X 2S 

•••••G3«^^^^^«^*^ 

• SHIFT • 
•ACCESS INTO MQ » 

• LEAVING • 
» -AHTTTT- » 

• IN MQ • 
••••••••••••••••• 



X 24 
I ••••G4^ ••••••••• 

• -AMTT- • 
•TO ACCUMULATOR • 

• AND ADD TO • 
' 1ST WORD OF • 

• ORDER • 
■•••••••••••••••• 



•••••HI •••••••••• 

• SET IR2 TO • 

• 1ST DISK UCB •• 

• FOR CHANNEL • 



H2 • • 12 

» • 
LAST • 

uce • 

DONE • 



••H3*«*««>» 

» • 

XEC CRQ 

TO CONVERT 

BCD ZEROES 

» TO 12 • 



•••••H4*^^>«^^^< 
•LOW ORDER -TT- 
»T0 ACCUMULATOR 

• AND ADD TO 

• -RROX- 



• RESTORE IR4 • 



COMPUTE AND 

STORE ADDRESS 

OF 2ND ORDER 

WORD 



•SEE NOTE ABOVE • 



••*•• 1.4 



Chart CV. DATNS and FDAMT routines 
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cw 



• DISABLE 
» TRAPS 

• SET PUNSW 
•(PUNCH SWITCH) 



'SAVE CHANNEL A 
• INFORMATION 
» IN ACCMM 



• CLEAR « 

• SPR « 

• LOCATION « 

« « 



CVPRT X 

«««»*AS«»»«««*1 

• SAVE IR4 
« 

• SETUP PROUT 

• CALLING 
» SEQUENCE 



PROUT^ 

PBOUTO X 
•«»«>B1>****« 
e DISABLE 
» TRAPS 

• COMPUTE 
» EXIT 

• ADDRESS 



»*»»»B2** ******** 



»*»«•««*»•««« 



»•**»»>*«****» 



» SHIFT OFF 
• ALL EXCEPT 
' SPR CODE 

i«*««W**«««*«1l 



• CONVERT UNIT 



»»*Cl»»*»»*»« 

SETUP EXIT 

ADDRESS AND 

SAVE IR2 IN 

PROPER 

LOCATIONS 



PRTI X 
»*»»»C2** 
•SPRT 



LAST SPR 

EQUALS 

ZERO 



X 42 

*««»*C5* ********* 

* * 

* STORE * 

* IN * 

* PRINT IMAGE » 

* * 
•««««•*«••*«««»** 



X 04 

»*»**01 ********** 

• SET IR2 TO • 

* NUMBER OF » 

* CALLING • 
» SEQUENCE » 

• WORDS * 
»>»•***»«****«*** 



02 » * 14 



♦**D3 **»••»•* 

* TEST PUNSW * 

AND SELECT 

PRINTER 



V*«**D4 ********** 
I * 

» TEST PUNSW » 
• AND GENERATE • 
» SPR REQUIRED * 



* PRINT 
*UNIT REFERENCE 

* AND MESSAGE 



X IS 

««»««n2** ******** 

» PICKUP * 

* ONE * 
..X* CALLING » 

* SEQUENCE • 
» WORE * 



X 25 

**»E3*»******** 

XEC SPR * 

AND * 

WAIT UNTIL * 

CHANNEL • 

NOT BUSY * 



»««*«P5*« 



»»»«*•*«« 



CONVERT BCD 

TO 
CARD ItlAGE 



PARTIAL 

LINE 
RETURN 



• LAST » 

CALLING 

SEQUENCE 

WORD 



RESET 
PUNSW 
(CLEAR) 



»»»«H I ******** 

SET FRSWl 

ENABLE TRAPS 

ON PRINTER 

CHANNEL 

ONLY 

■■)l»»»»« ••»»«*« 



•**H2******»« 

'CLEAR "PRINT" 

TEST "PLNSW 

AND SELECT 

PRINTER 

• OR PUNCH 



***»*HS»»»******* 



DATA 

CHANNEL 

TRAP 



SAVE+1 X 10 

**«»*K1********** 
*SAVE CCA2* 
*-*-*-*-»-•-•-•-* 
•RETURN TO PRT3 * 
*W/0 PROCESSING * 
• CHANNEL TRAP * 
*•••*»**»•••*•«*• 



X 19 

»**»J2**»***»*** 

SENSE PRINTER * 

OR PUNCH * 

IF SPR * 

IS NCT * 

ZERO 



»*»** 



»•*** 



***K2******** 

I « 

WRITE 

OR PUNCH 

IMAGE 

> * 

•*••••••••»•• 



»(G0 TO PROCESS 
» CHANNEL A 
► TRAP) 

»*••••****»»•»«■ 



***** SAVE 



* RESTORE TRAPS • 

* AS WHEN * 

* ORIGINALLY » 

* ENTERED * 
« • 
*•*•******•»****» 



Chart CW. PUNCH and PROUT routines 
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Appendix A — On-Line Messages 



The format of the following two lists of on-line messages is as follows: The first line or Hnes that are cap- 
itahzed constitute the message as it appears in print. The next line indicates the block locations on the charts 
in the manual that show the logical flow that causes the message to be printed. The sentence or paragraph 
following this gives the reason for the message. 



During IBSUP Operation 

CONTROL CARDS NEEDED IN CARD READER 
OPERATOR ACTION PAUSE 



BCE3, BCF3 



An EOF has been sensed in the card reader while attempt- 
ing to read in a control card. 



NOT A BASIC MONITOR CONTROL CARD 
PRESS START TO CONTINUE 

BEH3, BEH4 



A card with an illegal operation code has been read in. 
The card in error is printed immediately before the error 
message. 



ILLEGAL SYSUNI DEFINITION 

PROVIDE CLARIFICATION IN CARD READER 

OPERATOR ACTION PAUSE 



BJC2, BJF3, BJG3 

The system unit specified on either a srelease or $as card 
cannot be found in the syunam table. 

BJE4/BJG4,BJF3,BJG3 

The disk origin or number of cylinders on a sas card con- 
tains a character greater than 9. ( In the released disk ver- 
sion, the same error condition occurs on a srelease card. ) 

BKB2/BKD2, BJF3, BJG3 

One or both of the system units specified on a sswitch card 
cannot be found in the syunam table. 

BHC4, BJF3, BJG3 

The system unit specified on a srewind, sendfu^e, or 
SREMOVE card cannot be found in the syunam table. 



JOBS* STARTING WITH JOB XXXXXX, WILL BE PROCESSED 

BUHl 

Sense switch 6 has been sensed down between jobs, indi- 
cating a skip job request. 
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IF INCORRECT* CLARIFY IN KEYS- 
OR PUT S.S.6 UP TO IGNORE REQUEST 
OPERATOR ACTION PAUSE 

BUC2, BUB2 



A skip job request with a count greater than 15 (decimal) 
has been entered. 



PLACE S»S»6 UP 
OPERATOR ACTION PAUSE 



BUF3, BUGS 



A skip job request has been interpreted and determined 
to be vaHd. A vaHd request would be a first request not 
greater than 15, or any second request. 



ILLEGAL UNIT SPECIFIED 

PROVIDE CLARIFICATION IN CARD READER 

OPERATOR ACTION PAUSE 



BFA2/BFD2, BJF3, BJG3 

An illegal or invahd unit is specified on a sattach card. 
BFA4/BFC4,BJF3,BJG3 

An illegal or invalid unit is specified on a sdetach card. 



MIXED HARDWARE SWITCH 
PROVIDE CLARIFICATION 
OPERATOR ACTION PAUSE 



INVOLVING SYSLBl 
IN CARD READER 



IS ILLEGAL 



BKJ2, BJF3, BJG3 

The two units specified on a $switch card that involves 
SYSLBl are not both of the same type, (i.e., both are not 
tape, or both are not disk ) . 

SYSUT4 IS NOT ASSIGNED. NO DUMP CAN BE TAKEN 

BWC4 

In iNiTUS, the unit being initialized is sysut4 and is un- 

assigned. 



SYSOUl 



IS NOT ASSIGNED. NO DUMP CAN BE TAKEN 

BWC3 

In INITUS, the unit being initialized is sysoui and is un- 

assigned. 



CURRENT SYSTEM NAME MISSING 

RESTORE WITH SEXECUTE SYSNAM IN SYSCRD. 

OPERATOR ACTION PAUSE 

BTB2/BTE2, BTFl, BTGl 



fr> cvcpg'T cjpjjTTT) or the 



tern name in syspos cannot be found in the sysnam table. 
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««»«** UNKNOWN SYSTEM 

PROVIDE CLARIFICATION IN CARD READER 

OPERATOR ACTION PAUSE 

BGG2, BVC2/BVE2, BJF3, BJG3 

Routine ibxcc used ifind to locate correct system and could 
not find the desired system name in the sysnam table, or 
when the name is found, the second word of the table entry 
is cleared. 

BGF4, BVCl, BJF3, BJG3 

Routine ibxcc searched for system name in dsysnm table 
and could not find it. 



*♦♦*♦♦ NO ASSIGNMENT MADE 

PROVIDE CLARIFICATION IN CARD READER 

OPERATOR ACTION PAUSE 

BGG2, BVG2, BJF3, BJG3 

Routine ibxcc used ifind to locate correct system and no 
assignment was made to the system unit required for a par- 
ticular system. 
BBH3, BCD2, BVGl, BJF3, BJG3 

During cold-start, the input tape is designated as the input 
unit and is unassigned or unattached. 
BCDl, BCD2, BVGl, BJF3, BJG3 

In iBSYS, no input unit is assigned to the required input unit 
as designated by the input switch ( syscrd or sysini ) . 

SPAUSE 

OPERATOR ACTION PAUSE 

(Machine pause) 

ACTION COMPLETED 

( BJGl ) , BJG2, CTE2, CTG2 

A $PAUSE card has been read in during monitor operation. 

SSTOP 

END OF JOBS 

CANNOT PROCEED 

(BJB1),BJA2,CTB4, 

A $STOP card has been read in during monitor operation. 



During lOEX Operation 



OPERATOR ACTION PAUSE 

(MACHINE PAUSE) 

ACTION COMPLETED 



CTE2, CTG2 (entered at CTA2) 

A user has transferred to the (pause subroutine. 
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PRESS START TO CONTINUE 

(MACHINE PAUSE) 

CONDITION IGNORED 

CTE2, CTG2 (entered at CTB2) 

A user has transferred to the (pawsx subroutine. 

CANNOT PROCEED 

CTB4 

A user has transferred to the (stopx subroutine. 

ILLEGAL TRAP OR UNIT REQ-ST AT XXXXX 
CANNOT PROCEED 

CCH2, CUJ2, CUK2 

A data channel trap was received from a non-existent 

channel. 
CAA2/CLA1, CUD2, CUJ2, CUK2 

A use of Acnv or ndsel has specified an illegal unit in its 

calling sequence. 



UNIT XX ILLEGAL NON DATA SELECT AT TRAP TIME 
CANNOT PROCEED 

CLE4, CLG5, CLH5 

A non-data select operation has been attempted during 
trap time on a channel other than the channel that is 
trapped. 

UNIT XX ••••••••• •••••USERS MESSAGE**** **••• 

CWA5, CWD5 

A user has used the (Cvprt subroutine to convert a tape 
address to symbolic and print his own message along with it. 

XXXXXX YY ERR^ TRK 22Z2 XXXXXX — symbouic unit 

(ONE OR MORE OF THE ABBREVIATIONS LISTED BEL.OW) YY RD /wR 

ZZZZ TRACK NUMBER 

PRGCK DATCK EXCND I -SEQ I -CDE 
FRMCK NOREC I -ADR RSPCK DCOMP 
P/CCK INOPR NTRDY DKCRK CUCRK 
CPB4/CPK3/CRD2, CPH5 

An unsuccessful recovery attempt has been made on a disk 
error. The abbreviation(s) for the type of error(s) is (are) 
printed on the line following the symbolic unit, type of 
error, and track number. 

U* E* ON A SEEK-PRESS START TO RETRY* 
OPERATOR ACTION PAUSE 

CSJ4, CSH5, CSG5 

An Unusual End has been received on a seek issued by 
the issEK or isski routines. 
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UNIT XX FILE XXXXX REC. XXXXX NOISE RECORD DISCARDED 

CEF4, CEF3 

A user's sel- routine has used the 2, 4 return to indicate 
that the noise record on a read operation is to be discarded. 



UNIT XX FILE XXXXX REC» XXXXX SHORT RECORD WRITTEN 

CEF4, CEH4 

A user's sel- routine has used the 2, 4 return to indicate 
that the short record written is to be ignored. 

UNIT XX FILE XXXXX REC. XXXXX PERMANENT READ REDUNDANCY 

CHA3, CHC3, CHD3 

A permanent read redundancy has been encountered dur- 
ing redundancy recovery, and the message is not sup- 
pressed. 

UNIT XX FILE XXXXX REC» XXXXX NOISE ON ERASE 

CJA3, CJA2 

A redundancy has been encountered while attempting to 
WTite an erase area. 



UNIT XX FILE XXXXX REC XXXXX 25 ERASES DURING WRITE 

CJD4, CJE4 

25 erases have been made while attempting to recover 
from a write redundancy. 

UNIT XX EOT ON ERASE 

CAKflSfOT PROCEED 

CJG3, CJG2, CJH2 

An EOT has been sensed on some write redundancy re- 
covery attempt other than the first. 

I/O CK« 7607 

PRESS START TO CONTINUE 

CCA4, CCA5, CCB5 

An I/O check has been detected on a 7607 channel following 
a data channel trap. 

I NTF CK« 7909 (ONE OR more of the first three lines foluowed 

cpQ CK, 7909 ^^ THE. fourth line as shown) 

I/O CKt 7909 
PRESS START TO CONTINUE 

CDC2, CDB3, CDC3, CDG3 

The indicated error conditions were detected on a 7909 
channel following a data channel trap. 
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Machine and System Definitions 

IBM Machine type (709 or 7090) 

IBSORG Basic Monitor origin for nucleus 

(minimum is last machine trap /inter- 
rupt cell + 1 ) 

lOXORG [OEX origin 

( minimum is last ucb cell + 1 ) 

SYSORG System origin 

( minimum is last installation trap rou 
tine cell + 1 ) 

SYSEND System upper core limit 

( move down to allow room for instal- 
lation accounting routines, etc. ) 

racHLO Density to be assumed on $as card if 

not specified 
( 1 indicates high, indicates low ) 

EJECT Printer board sense exit for eject 

(1 through 10) 

DBLSP Printer board sense exit for double 

space 
(1 through 10) 

RDUNRT Number of recovery tries for each 

read redundancy 

ETMODE Transfer trap mode 

(1 indicates trap mode to be saved 
by lOEX, indicates trap mode remains 
in efiFect in ioex ) 



Unit Definitions 

CHAi-CHHi Number of tapes, (0 through 10) 

CHAAT-CHHAT Tapes attached 1 bit per unit 

signifying whether unit is attached to 
machine, (i.e. legally dialable). Bits 
go jLoit to rigiit \^ CR, pu, PR, tapes jl to 
10) and equal 1 if not attached 
CHAMD-CHHMD Modcl types of units on channel: 1- 
Model IV, 0-Model ii; same arrange- 
ment as GHAAT 
PRNTA-PRNTH Printer; 1-printer exists 
PNCHA-PNCHH Punch; 1-punch exists 
CDRDA-CDRDH Card reader; l-card reader exists 



HlAl-HTHl 
HTAAl-HTHAl 



HTA2-HTH2 
HTAA2-HTHA2 



DFAl-DFHl 



DFAAl-DFHAl 



IFAl-IFHl 



DFA2-DFH2 



DFAA2-DFHA2 



[FA2-IFH2 



iNumoer or nypertapes on interlace j. 
Hypertape attachment indicators; sim- 
ilar to GHAAT 

Number of Hypertapes on interface 2 
Hypertape attachment indicators; sim- 
ilar to GHAAT 

Number of modules on interface 1(0 
through 10) 

Disk module attachment indicators; 
similar to ghaat 

Model of 7631: 1-Model in or iv, 0- 
all others 

Number of modules on interface 2, (0 
through 10) 

Disk module attachment indicators; 
similar to ghaat 

Model of 7631: 1-Model iii or iv, 0- 
all others 



Intermediate Definitions 
(Calculated rrofn Prior Definitions) 

Number of disk arms on each channel 
Total number of disk arms on all chan- 
nels 

Equals 1 if disk exists on any channel 
Number of 7909 devices on each chan- 
nel 

Channel type: 1 indicates 7909, in- 
dicates any otner 

1 bit in a word for each card machine 
that exists ( Figure 4 ) 
Number of i/o devices on each channel 
Total number of i/o devices on all 
channels 

Existing channel indicators: 1-channel 
exists, 0-channel does not exist 
Total number of channels that exist 



DUCA-DUGH 
TDUAC 



DITEX 
CHA2-GHH2 



GHA3-CHH3 



UG1-UG4 



CHAO-CHHO 
NOUGW 



GHA4-GHH4 



GHH5 



Figure 4 shov/s the bit configuration for the key 
cells required by cold-start to generate the Unit Con- 
trol Blocks. These words are constructed during com- 
pilation from the unit and intermediate definitions. 



lUU 



AAMT 



<-o .— CM 00 -<t in -o 



o r-cMro-<tmM3t-v ooo^ 



00 CN o .— CM 





CH -MD 


0- MocJel II 
1 - Model IV 




- Attached 
CH - AT 1 - Not attached 








=3 
a. 


Q- 








tape 
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u 


3 
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tape 

^j IT) 














CN 


ro 


vO 


r-x 


00 


CN 


o 


^ 


CM 


CO 


-o 


r-v 


CO 


o- 


o 



ROCTST 



UGl 


UG2 UG3 


UG4 




CDRDA 
PNCHA 
PRNTA 
CDRDB 


Z Qi 


oiUT'QiU -7QiU-7-QrU-7 

Q Z ^ Q Z ^ Q z ^ Q z ^ 
Uq.q_Uq_ q-Uq-q-Uq-q. 


CDRDG 
PNCHG 
PRNTG 
CDRDH 
PNCHH 
PRNTH 



NTONCH 

HTONC1 

HTONC2 

DFONCl 

DFONC2 

DFONC3 

DFONC4 



CHAl 


CHBl 


CHCl 


CHDl 


CHEl 


CHF1 


CHGl 


CHHl 




HTAl 


















HTA2 


















DFAl 


















DDAl 


















DFA2 


















DDA2 



















AADFl 
AADF2 



IF- 1 


DF - Al 




IF -2 


DF - Al 





AAHTl 
AAHT2 



HT - Al 



HT - A2 



Figure 4. 
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Appendix C — Channel Information and Operation Tables 



CHXAC 



These tables are comprised of one entry for each chan- 
nel that exists. The following tables have indirect refer- 
ences within the ioex communication region and may 
be referenced in this manner by the user: chxac, urkx, 
RCTX, RCHX, Tcox, TRCx, ETTx, and TEFX. When using 
the indirect references, mi must contain the channel 
index, which is the complement of the channel number 
minus one. 

Channel activity cells 

Cleared— no activity on a channel or 

non-standard use of channel 
L(UCB)— location of ucb for the unit 
that is active on the channel 
Channel priority cells 

Cleared— no priority assigned 
L(UCB)— priority is assigned to the 
unit indicated in that ucb 
Channel control cells 

PZE ADDR , 2 , length of all ucb's 
for channel. addr points to 

word 2 of these ucb's 
Locators for ucb's by channel 

Prefix— number of card machines on 

channel 
Decrement— total number of i/o de- 
vices on channel 
Address— address of first ucb on this 
channel 
UCAA-UCAH Locators for available unit chains by 
channel 

Address— address of ucb for first unit 
in the availability chain. 



CHXSP 



CHXCW 



ucba-ucbh 



RCTX Redundancy check control cells 

Zero- redundancy checking disabled 
Not zero— redundancy checking al- 
lowed (always zero for a 7909 
channel ) 
URRx Redundancy count cells 

PZE Nl, , N3 

Ni— number of recovery entries 

tOSEL + 

N2=o— no permanent redundan- 
cies (READ) or erase areas 

(WRITE) 

N2=i— permanent redundancy 
(READ) or one or more erase 
areas (write) 

(ni=o if N2=o, and ns always o 
for disk i/o) 

The following tables are instruction tables for use 
by the program and the user so that the recovery 
routines will be able to repeat the operation when 
required. The recovery routines need only to execute 
these instructions, which have been set up by the user's 
SEL+ routine. 

ETTX End-of-tape test table 

RCHX Reset and load channel table 

SCHX Store channel table 

SDCX Store diagnostic channel table 

STCX Start channel table 

TCOX Test channel in operation table 

TEFX Test end-of-file table 

TRCX Test channel redundancy table 
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Appendix D — Key Switches and Storage Locations 



ACOMM 



CHPSW 



COLD 



COMM, 
(COMMD 



DCHSW 



DMPSW 



Store Channel Results 

Subroutine prout places the scha 
data into this location when 
forcing a trap on the printer chan- 
nel. XTRAP will move this data into 
coMM. If either frsws or frsws is 
not zero, the schx in xtrap is by- 
passed. 

Checkpoint Switch 

Set by user when taking a check- 
point. Indicates to bgi not to at- 
tempt to initiate another opera- 
tion on the channel that just 
caused the trap unless it is a 7909 
channel. 

Cold Start Executed Switch 

First location of cold-start routine 
which is cleared to indicate that 
the routine has been executed. It 
is cleared in both the cold-start 
and iBRES routines. It indicates to 
IBXCC that SYSLBi must be initial- 
ized when cold-start has been 
executed. 

Store Channel Results 

xtrap stores the channel results in 
this location on each channel trap 
unless FRSW2 or frsws is not zero. 
In this case, the data from 
ACOMM is used. This data is used 
by NRTST to determine the length 
of the record in question. 

Disk Channel Switch 

XTRAP sets this location to contain 
the location of the ucb for the 
operation causing the trap if the 
unit is on a 7909 channel. When 
this location is zero, a non-7909 
channel is indicated. This location 
is cleared on exit from xtrap in 
the OUT routine. 

Dump Switch 

This location is set by the dump 
caller to indicate that two records 
are to be read in. It is cleared 
when the dump program is scat- 
ter loaded into core. 



DSYSNM 



DUELL 



ENBSW, 



(ENBSW 



FORCE SWITCHES 



FRSWl 



FRSWS 



Disk System Name Table 

This table is comprised of two 
word entries for each system on 
disk. The format is as follows: 

BCr 1 , SYSNAM 

PZE , , DORG 

Last Disk Error Indicators 

This location is used in the disk 
recovery routine to save the error 
conditions obtained on one entry 
to the routine, so that they may be 
compared with the errors found 
on the next entry. 

Enable Switch 

When zero, this location indicates 
to lOEX that it may enable traps. 
IBSUP will enable traps before 
going to SYSTRA after loading in a 
new system. When this location is 
not zero, ioex may not enable 
traps. This location is set by the 
user. 

A detailed explanation of the three 
force switches and their inter- 
action is given in the explanation 
of the PROUT subroutine. 

Force Switch 1 

This location is set to non-zero in 
the PROUT routine whenever it is 
necessary to force a channel trap 
on channel A. It causes the save 
routine to transfer immediately to 
PRT3 in the prout routine without 
processing the trap which has 
been forced, or even setting trpsw 
at this time. This location is 
cleared on exit from the trap 
supervisor if it is found non-zero. 

Force Switch 2 

This location is set to non-zero on 
an exit from the prout routine 
when both frswi and trpsw are 
not zero and frsws is zero. This 
condition indicates to prout and 
XTRAP that there is one trap wait- 
ing to be processed and one trap 
being processed. This location is 
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FRSW3 



GOOF 



IBASX 



IBOPT, 
IBOPX 



IBSAV 



IBSINP 



IBWAT 



cleared on exit from the trap 
supervisor if frswi is zero. 
Force Switch 3 

This switch is set in the exit 
routine in prout if frswi is not 
zero and trpsw is zero. This con- 
dition indicates to prout and 
XTRAP that there is a channel A 
trap waiting to be processed. This 
location is cleared on exit from the 
trap supervisor when frswi is not 
zero and frsw2 is zero. Control 
then returns to the exit routine in 

PROUT. 

Illegal Trap Switch 

This is an instruction in xtrap 
whose address will be set to non- 
zero when any trap occurs on a 
non-existent channel. When it is 
tested and found non-zero, it will 
cause a system halt after an on- 
line print-out indicating the error. 

Prior Assignment of Newly Assigned 

System Unit 

This location contains the ucb ad- 
dress for the prior assignment to 
a logical function. This is used in 
the ibrel and ibasc routines. 

Legal Operation Code Tables 

These two tables contain the legal 
operation codes which may be 
used on basic monitor control 
cards, and the addresses of the 
routines used to process each 
particular control card. 

Original Sense Switch 1 Setting 

This is a location within the disk 
limits table where the original set- 
ting of sense switch 1 is saved. It 
is also set according to the re- 
quirements of a $CARDS or $tape 
control card. 



Zero — DOWN 
Non-zero — up 



(CARDS) 

(TAPE) 



Input Switch 

This switch indicates cards or tape 
mode of input. Zero indicates 
cards, non-zero indicates tape. 
A SRESTORE card does not change 
this setting when restoring the 
nucleus. 

Control Card Wait Loop 

This location may be set to one of 
four possible values, as shown: 



TRA 



TRA IBTPIN 

or 



Set by iBSYS while 
waiting for the data 
channel trap. 



INTSW 



LATUN 



LSTSW 



TRA iBCDiN aet Dy tne sel+ 
routine in ibsys to 
give control to the 
proper control card 
interpretation rou- 
tine. 
TRA ibret Set by the sel+ 
routine in ibsys 
when an eof is 
sensed in the card 
reader. 
Interlock Switch 

This switch prevents an interrupt 
unless the position of sense switch 
1 has been alternated. For exam- 
ple, if the operator has used sense 
switch 1 to cause control cards to 
be taken from the card reader on 
initial loading and has not re- 
placed this switch in the up posi- 
tion, an interrupt will not occur. If 
the operator has placed the switch 
down for an interrupt and receives 
the interrupt, but does not return 
the switch to up, another interrupt 
will not occur until the switch is 
alternated. 

If the switch is not zero, the inter- 
lock is on. It is set to non-zero 
during cold-start if sense switch 1 
is used to indicate card input. It 
may also be set to non-zero in 
IBXCC when returning from an in- 
terrupt. It will be cleared on the 

C^^i. ^^4-^,. *^ 4-1-.,-. T»Tr»Tr.ii-r. — /^.-.i-I-^r^ 

when it is found set and sense 
switch 1 is up. 

Last unit Attached 

This location contains the address 
of the UCB for the last unit at- 
tached. The address is set by the 
iBATC routine, and can be cleared 
by the ibrel routine. It is used by 
both the ibasc and the ibrel rou- 
tines. 

List Switch 

This switch indicates that control 
cards are to be printed when it 
is ON. 
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Zero — ON: Control cards 
printed on-line. 
Non-zero— OFF: Control cards 
not printed on-line, (except 
$PAUSE, $STOP, $LiST and illegal 
cards). 

MAPSW Map Switch 

This switch is used by ibunt to 
indicate when any data has been 
printed under a particular head- 
ing. 

Zero — NO; Non-zero — yes. 

ONETRP Single Channel Enable Trap Location 

This location is used when it is 
desired to enable traps on one 
channel only (prout, punch, 
DKRCV routines). 

PRINT Image Printed Switch 

This switch is used within the 
HCDHC routine. Zero indicates that 
the on-line image area is to be 
cleared before converting any 
more data. Non-zero indicates that 
only part of the desired image is 
converted, and it has not yet been 
printed. In this case the image 
cannot be cleared. 

psTsw Pause Switch 

This switch determines which pair 
of messages will be printed on- 
line with the use of the machine 
pause routine. Non-zero indicates 
that the entry to the routine was 
through PAUSE, and the operator 
intervention messages are to be 
printed. Zero indicates that the 
entry was through paws and the 
error messages are to be printed. 
This location is cleared on all 
exits from the pause routine. 

puNsw Punch Switch 

This switch indicates that the on- 
line message is to be punched in- 
stead of printed. It is set to non- 
zero to indicate this if the entry 
is made to the punch routine. It is 
set to zero on all exits from either 
the punch or prout routines. 

RCOLDX Alternate Cold-Start Exit 

During the initial use of cold- 
start, this location contains a 
TRA * + i. If the cold-start rou- 
tine is being used for a srestore 



RUPSW 



RWIND 



SYSORG+100 
SYSORG+101 

SYSORG + 102 

SYSUNI, 

SYSLBl+19 



SYUNAM 



TRAP, 
(TRAPS 



operation, this location will con- 
tain a TRA iBSYs. This opera- 
tion bypasses the setting of the 
input switch and the operations 
concerning the input unit. 

Interrupt Switch 

This switch is set to non-zero by 
iNTRUP and cleared by ibxcc. 
When set, it indicates to ibsys to 
return to the current system when 
an EOF occurs in the card reader 
during an interrupt. When set, it 
also indicates to ibxcc to set the 
interlock switch, intsw, to prevent 
another interrupt until sense 
switch 1 is alternated. 

Temporary Sense Indicator Storage 
XTRAP saved the sense indicators 
in this location if a read redun- 
dancy is found to be a noise 
record. 

PZE SYSLBi limits ( disk ) 
PZE Channel index, , Unit ad- 
dress 

PZE L(UCB), , TTTT of Spare 
tracks of ibsys cylinder. 

System Units and Disk Limits Tables 
The system units table contains a 
one word entry for each logical 
system unit. When loaded, the 
format of an entry in this table is 



PRE 



CHAN, , UNIT. 



The format of this table when in 
use is PRE L(UCB). In both for- 
mats, the prefix is used to indicate 
the density of the logical unit. 
MZE stands for high density, and 
PZE stands for low density. 
The disk limits table contains a one 
word entry corresponding to each 
entry in the sysuni table. It is in 
the format of pze dorg, , dend. 
The locations corresponding to 
SYSCRD, SYSPRT, and SYSPCH are 
used for switch storage and 
labelled isseh, intsw, and ibsav, 
respectively. 

System Units External Name Table 
This table contains a one word 
bci entry for each logical system 
unit. 

Current Traps Enabled 

This location contains the word 
used to enable traps at this time. 
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TRPSW, Trap Switch 

(TRPSW When this location contains l(ucb) 

as set in xtrap, it indicates that a 
trap is being processed. When this 
location is cleared on an exit from 
XTRAP, it indicates that the trap 
has been completely processed. 
The sign of trpsw is set to 1 on an 
erase operation on tape. 

TRAPX, Indirect Reference to trap, (traps 

(TRAPX This location in the ioex com- 

munications region provides an 
indirect reference to trap, (traps 
containing the current traps en- 
abled. This cell may be changed by 



TRPCH 



the user and then reset to its origi- 
nal value if the user desires to in- 
dicate to IOEX to use another trap 
cell for enabling traps, (iocs 
makes use of this feature. ) 

Enable Printer Channel Trap Cell 

This location contains a 1 in both 
the address and decrement and is 
used to enable traps on the printer 
channel by prout when a channel 
A trap must be forced. It is also 
used by dkrcv and shifted to the 
desired position to enable traps on 
the desired channel only. 
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Appendix E — Abbreviations 



ACC ACCUMULATOR INSTR 

ADD ADDRESS IR 

ADDR ADDRESS I/O 

AF SEEK REQUEST FLAG (ACTIVITY FLAG) LOG 

AVL AVAILABILITY, AVAILABLE LRC 

BCD BINARY CODED DECIMAL LT 

CE CUSTOMER ENGINEER ( TRACK) L ( UCB ) 

CHAN CHANNEL MISC 

CHK CHECK NO 

CHN CHAIN OP 

C( UCW) CONTENTS OF UNIT CONTROL WORD ORIG 

DEND DISK END PF 

DORG DISK ORIGIN SEQ 

EOF END OF FILE SPR 

EOT END OF TAPE TTTT 

EQ EQUAL TO UCB 

GT GREATER THAN UCW 

HI HIGH UE 

IF INTERFACE VIA 

IND INDICATORS WEF 

INFO INFORMATION W/O 

INSTALL INSTALLATION , XEC 



INSTRUCTION 

INDEX REGISTER 

INPUT/OUTPUT 

LOCATION 

LONGITUDINAL REDUNDANCY CHECK 

LESS THAN 

LOCATION OF UNIT CONTROL BLOCK 

MISCELLANEOUS 

NUMBER 

OPERATION 

ORIGINAL 

SEEK ISSUED FLAG (PENDING FLAG) 

SEQUENCE 

SENSE PRINTER (SENSE PUNCH) 

TRACK ADDRESS 

UNIT CONTROL BLOCK 

UNIT CONTROL WORD 

UNUSUAL END 

BY WAY OF 

WRITE END OF FILE 

WITHOUT 

EXECUTE 
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Appendix F — Glossary 



Activate File: To cause an i/o operation to be started on a 
channel, on the unit specified in the file designation. 
Active: Status of a channel or a file when an i/o operation is 
being performed on that channel or file. 

Activity Flag, AF ( Seek Request Flag ) : The sign position 
of word 3 of a disk unit control block which is used to indicate 
when a seek is requested by a user, or a seek was issued and an 
attention signal is awaited. 

Adapter Check: A condition in the 7909 channel which can 
cause an interrupt. 

Attached, Unattached: The physical condition of an i/o de- 
vice, referring to whether or not the device is actually attached 
to the system. Bit position 1 of word 1 of the ucb is used to 
indicate this status when the sign position is set to 1. (See ucb 
layout in ibsys Reference Manual, Form C28-6248. ) 
Attention Interrupts: This is a signal which indicates a 
change in status of an attached i/o device. An attention signal 
is generated at the completion of a seek operation by an access 
mechanism. 

Availability Chain: This is a logical list of attached units 
which have not been assigned to a specific system unit function. 
The address of the first unit in this chain for each channel is 
found in the table ucaa through ucah in the nucleus. The ad- 
dress of subsequent ucb's is found in the address part of word 
1 of each entry in the chain. ( Refer to Chart by.) 
Available, Unavailable: The logical status of an i/o device 
which is attached. The sign position of word 1 of the ucb is 
used to indicate this status. (See ucb layout, ibsys Reference 
Manual, Form C28-6248. ) 

Calling Sequence: An instruction that gives control to a sub- 
routine with one or more instructions or constants which are 
provided to supply the parameters for the subroutine operation. 
CE Track: A track on disk reserved for Customer Engineering 
use, which cannot be used by the programmer, but to which 
the access mechanism will move whenever an illegal address is 
specified. 

Channel Index: A numeric value used to index through a table 
of instructions which is as long as the number of channels at- 
tached to a system. The value is equal to the complement of the 
desired channel number minus one. This value is usually placed 
in iRi, and the reference to the start of one of these tables is 
tagged with iri. 

Checkpoint, Checkpoint Record: A record written at periodic 
intervals by a program containing the complete contents of core 
storage and all the machine registers and machine status condi- 
tions. This record may be later used to provide a restart without 
necessitating a complete rerun of the program. 
Clear: When speaking of a switch or a location in storage, 
the term "clear" refers to an all zero condition. 
Dead Stop : A type of halt provided in the program from which 
there is no normal recovery. Depressing start causes no change 
because the halt consists of a htr * 

Diagnostic Channel Data: The execution of a "store diag- 
nostic channel" instruction causes the contents of the channel 
check register to be placed in positions 6 through 11 of the 
location specified. The status of these bits may then be tested 
without using the tcm instruction normally used to check these 
conditions. 

Disk Limit: The starting and ending addresses of a system on 
disk. 

Dormant: Not active, which means no i/o operation is in prog- 
ress on a channel or file at this time. 



Entry Point: The first instruction in a subroutine that is exe- 
cuted. This is not necessarily the first actual instruction found 
in the routine, nor need it be the same for each use of the routine. 
Erase Area: A blank area on magnetic tape produced when 
either the word count in a desired i/o command is zero, or when 
no rch instruction follows a wrs. This blank area is then ap- 
proximately 3-% inches long. 

Initialized, Initialization: The preliminary setup of an area 
in storage, or of key locations and status indications prior to the 
actual beginning of a routine or subroutine. 
Initiate File: To start an i/o operation on a channel that is 
already active. This is performed at the completion of another 
I/O operation without allowing the channel to become dormant. 
I/O Check: Disk— A condition in a 7909 channel which can 
cause an interrupt. Tape— A condition in a 7607 channel which 
can cause a data channel trap if this type of trapping is enabled. 

Intersystem Reserve Unit: A logical i/o device that is given 
a reserve designation by one system to indicate that the unit 
may not be returned to the availability chain. It may be refer- 
enced later by another system when called for using the same 
reserve designation. 

Machine Registers: Those registers in the machine which are 
saved prior to the execution of a routine, and restored at the end 
of that routine. These include the accumulator, mq register, 
index registers, and the sense indicators. 

Machine Status Conditions: Those status conditions which 
are saved prior to the execution of a routine, and restored at the 
end of that routine. These may include some or all of the fol- 
lowing: Transfer trapping mode, overflow conditions, divide 
check status, and i/o check status. 

Noise Record: A record either read or written which contains 
less than three words. This would be equivalent to 18 bci 
characters. 

Non-Data Select Operation: An i/o operation that does not 
cause movement of data. These operations include: Set density 
high or low, Rewind, Unload, Backspace Record, Backspace File, 
and Write End-of-File. 

Non-Trap Time: That time when the program is not processing 
a data channel trap. 

Parameter: A specification provided as input to the compiler 
when assembling the program which would affect the manner 
in which the compilation was performed. It may also be the 
specifications provided as input to a subroutine in the subroutine 
calling sequence. 

Pending Flag, PF ( Seek Issued Flag ) : Bit position 1 of word 
3 of a disk ucb which is used to indicate when a seek has been 
issued and an attention signal is awaited. 

Permanent Read Redundancy: A redundancy has been en- 
countered on tape and the number of recovery attempts specified 
in RDUNRT has been attempted unsuccessfully. 

Point to. Set to Point to: When referring to a location in 
storage or an index register, the term "point to" indicates that 
the register or location is loaded with the complement of the 
desired value. This value allows the use of an index register 
to easily step through a block of information starting at the 
desired location. 

Posting, Post Completion: That operation performed by the 
user's Select Minus routine to check the operation that just 
caused a trap, and to set up the indicators for ioex to determine 
what recovery actions should be taken if there was an error 
detected. 
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Reset: When referring to a switch or storage location, the term 
"reset" indicates a cleared or zero condition. 

Restart: The process of starting an operation over again, possi- 
bly from some point other than the start of the program. 

Save: To pick up and store information which will be required 
later. 

Save Record: That record written on sysut4 by the dump 
caller, which contains the contents of the machine registers and 
machine status conditions, and that portion of core storage 
which will later be occupied by the dump program. This in- 
formation is needed for the dump program in compiling its 
print-out. 

Scatter Load Routine: That portion of the system loader that 
enables one physical record to be broken up into smaller seg- 
ments which can be loaded into different areas in core storage 
which are not necessarily adjoining. 

Select Routine, sel + , sel-: The routine provided to per- 
form an I/O operation under control of ioex. It is comprised of 
two sections: sel+ and sel-. sel+ starts an i/o operation and 
returns control to ioex, while sel- posts completion of an i/o 
operation and then returns control to ioex. 

Set: When referring to a switch or storage location without 
specifying an actual value, the term 'set' indicates a non-zero 
condition. 



Sequence Check: A condition in the 7909 channel which can 
cause an interrupt. 

Stacked Jobs: A series of jobs placed peripherally on the same 
input tape, which may call for different systems under the same 
monitor system, and which vnll be processed in sequence unless 
directed otherwise by the operator. 

Tape Cleaner: An operation performed by the read redun- 
dancy recovery routine in an attempt to recover when a bad 
record is detected. It consists of two extra bsr operations fol- 
lowed by two RDS operations which cause the tape to move the 
suspected bad area back into the vacuum columns. This is done 
in an attempt to dislodge any dirt particles which could possibly 
have caused the redundancy. 

Trap Supervisor, ioex: That portion of the Basic Monitor 
which remains in storage and receives control from each data 
channel trap or interrupt. 

Trap Time: That time when the program is processing a data 
channel trap. 

Unit Control Blocks, ucb's: A series of four-word blocks in 
ioex that contain the information pertaining to a particular i/o 
device. (See ucb layout in ibsys Reference Manual, Form 
C28-6248. ) 

Unit Control Word: One of the four words in the Unit Con- 
trol Block. 

Unusual End: A condition in the 7909 channel which can 
cause an interrupt. 
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This section contains three cross reference tables which 
may be used with the autochart diagrams within this 
manual. Their use will enable a reader to locate any 
label appearing on any chart, all references to a par- 
ticular entry connector, and all blocks where a sub- 
routine is used. 



Table A — Labels 

This table lists all labels that appear on all charts. To 
the right of each label is the chart and block location 
where the label appears. 



LABEL 


BLOCK 


LABEL 


BLOCK 


(ACTIV 


ABA2 


A3 


CGC2 


(ACTVX 


ABB2 


A4 


CGA3 


{BCD5R 


ACH2 


BC05 


ACJ3 


(BCD5X 


ACJ2 


BCVDEC 


ACG3 


(CVPRT 


AC 02 


BGl 


ABJ3 

CFA4 


(DECVA 


ACG2 






(DECVD 


ACF2 


BGl+1 


CFA3 


(FDAMT 


ABE2 


BG2 


CFH2 


(IBCDZ 


ACK2 


BG3 


CF84 


(NDSEL 


ABC2 


BG4 


CFD3 


(NDSLX 


A8D? 


BG5 


CFG3 


(PAWSX 


ACB2 


BG6 


CFE4 


IPROUT 


ACC2 


CALIBl 


BPA2 


ISTOPX 


ACA2 


CALIB2 


BP02 


(SYMUN 


ACE2 


CALIB3 


BRA2 


ACTV 


CAA2 


CALPOH 


BSAl 


ACTXl 


CBJ2 


CALl 


BPB2 


ACTX2 


CBG4 


CALIOY 


BREl 


ACTYl 


CBJ4 


CALllY 


BRE2 


ACTl 


CAD2 


CAL12Y 


8RF5 


ACT3 


CAE5 


CAL2 


BPC2 


ACT4 


CAH3 


CAL2Y 


BR02 


ACT5 


C8B3 


CAL3 


BPG2 


ACT5A 


CBE4 


CAL3Y 


BRC3 


ACT6 


CBA2 


CAL5Y 


6SA4 


ACTS 


CBF2 


CAL6Y 


BSA5 


Al 


CGA2 


CAL7Y 


BSD5 


A2 


CGB2 


CAL8Y 


BSA3 



.ABEL 


BLOCK 


LABEL 


BLOCK 


CAL9Y 


BRCl 


END2 


CCC4 


CHN+1 


8AA3 


ENDS 


CEA4 


COLD 


BAA2 


END9 


CEJ4 


CVPRT 


CWA5 


EXCND 


CPKl 


DATCK 


CPH3 


FDAMT 


CVA3 


DATNS 


CVAl 


GNSEK 


BBA4 


DATNl 


CVGl 


GNXCH 


BAC4 


0ATN2 


CVF2 


GNXDl 


BAE3 


DATN3 


CVJ2 


GNXD3 


BAG3 


DENOl 


CDA3 


GNXE 


BBC5 


DEND2 


CDA4 


GNXHl 


BAA4 


OENIA 


CDB3 


GNXH2 


BAB4 


OENIB 


CD03 


GNXUN 


BBA5 


DFIND 


BGF3 


IBASC 


BMB2 


DINLBl 


BWOl 


IBASl 


BJC4 


DKRCV 


CPA2 


IBAS2 


BMH4 


DMPER 


BTFl 


IBAS3 


BMC5 


DMPTO 


BP05 


IBAS4 


BME4 


ORCOLD 


BAE2 


IBATC 


BFA2 


DUENl 


CPC3 


IBATl 


BJB4 


DUEN2 


CPC5 


IBCCC 


BJE2 


0UEN3 


CPF5 


IBCOIN 


8EA1 


DUEN4 


CPG5 


IBDAT 


BJC2 


0UEN6 


CPH5 


IBDTC 


BFA4 


DUEN7 


CRE3 


IBEDT 


BNAl 


0UEN8 


CRG3 


IBERR 


BJ03 


DUEN9 


CRA5 


IBLAST 


BSDl 


DUEX4 


CRC5 


IBLIS 


BJHl 


DUEIO 


CRG5 


IBMPT 


BLC3 


DUMP 


BPA5 


IBMPl 


BLF2 


EDT5 


BNA2 


IBMP2 


BLF3 


ENDl 


CCA5 


1 gMP3 


BLH3 


ENDIO 


CCE4 


IBMP4 


BLHl 


ENDil 


CEDA 


IBMP5 


BLJl 


END12 


CEH4 


IBMTX 


BLH4 


END13 


CEJ3 


IBNJB 


BUAl 


END14 


CEB4 


IBNJl 


BUE3 


END15 


CEG2 


IBNJ2 


BUA5 


END16 


CEH2 


IBNJ3 


BUC5 



LABEL 


BLOCK 


LABEL 


BLOCK 


IBNJ4 


BUa3 


IGCDE 


BAJ2 


IBNOIN 


BCD2 


INITLl 


BWE3 


IBOF 


BCE5 


INITL2 


BWF3 


ISDN 


BCA3 


INITL3 


BWA3 


IBONC 


BCB5 


INITL5 


BWC3 


IBPAC 


BJFl 


INITL6 


BWC4 


IBREL 


BMA2 


INITL7 


BM04 


IBRES 


B0A2 


INITUS 


BWA2 


IBRET 


BTA2 


INTRUP 


BPA3 


IBREW 


BHA2 


ISSEK 


CSB2 


IBRNl 


BHC4 


ISSK 


CSA4 


IBRSl 


BDC4 


ISSKl 


CSA2 


IBRUN 


BHA4 


ISSXl 


CSC4 


IBSPL 


BCE4 


ISSX2 


CSK4 


IBSTP 


BJAl 


ISSl 


CSF2 


IBSWC 


BKA2 


ISS3 


CSE3 


IBSWl 


BJA4 


ISS6 


CSE4 


IBSW2 


BKC4 


ISS7 


CSH4 


IBSW3 


BKF2 


ISS8 


CSJ5 


IBSYS 


BCAl 


lUEFl 


BAG4 


IBTCC 


BJH2 


IUEF2 


BAC5 


IBTPIN 


BEA2 


NOENO 


CCA4 


IBUNL 


BJK2 


NDERR 


CLF5 


I BUNT 


BLAl 


NOSEL 


CLAl 


IBVAL 


BVA3 


NDSXl 


CLJ3 


IBV2 


BVH3 


N0SX4 


CMJ4 


IBV3 


BVF5 


NOSl+1 


CMA2 


IBV7 


BV05 


NDS3 


CMB2 


IBWAT 


BCJ2 


NDS4 


CLB3 


IBHEF 


BHA3 


N0S5 


CMA3 


IBXCC 


BGB2 


NDS6 


CLFl 


IBXCl 


BGB4 


NDTXl 


CLJ4 


IFIND 


BVA2 


NDWEF 


CNA2 


IFNDl 


BVD2 


NGAOR 


CRA3 


IFND2 


BVCl 


NOREC 


CRA2 


IFN05 


BVGl 


NRTST 


CKA4 


IFND6 


BVH2 


NRTl 


CKF4 



LABEL 


BLOCK 


LABEL 


BLOCK 


OUT 


ABK3 
CGA5 


RSYUR 


BYAl 


PAUSE 


CTA2 


RSYl 


BYDl 


PAWS 


CTB2 


RSY2 


BYF2 


PROUTO 


CWBl 


RSY3 


BYE2 


PRPOS 


BTJ3 


RUBC3 


8LA2 


PRTAX 


CWJ4 


SAVE 


ABG3 


PRTX2 


CWJ5 


SAVE 


CCA2 


PRTl 


CWC2 


SAVE+1 


CCB2 


PRT2 


CWF3 




CWKl 


PRT3 


CWA2 


SPRT 


CWA4 


PUNCHO 


CWAl 


STOP 


CTA4 


RCLD 


BAH2 


STOPD 


CTD4 


RCOLD 


BAG2 


SYSTRA 


BPJ4 


RCOLOX 


BB02 


SYUCU 


BXAl 


ROUN 


CKA5 


SYUC2 


BXCl 


ROUNl 


CKE5 


SYUC3 


BXJ2 


REDIO 


CKA3 


SYUC5 


BXA3 


RED12 


CHA2 


SYUC6 


BXA4 


RED14 


CHA4 


SYUC7 


BXC5 


RED15 


CHB3 


TEST 


CUA2 


RED16 


CHC2 


TPOSl 


BTE4 


RED18 


CHF2 


TPPOS 


BTA4 


RED20 


CJA2 


TPPS 


8TA5 


RED22 


CJA3 


TSTXl 


CUG3 


RE05 


CJF4 


TSTl 


CUE2 


RED50 


CKA2 


TST2 


CUC2 


RED6 


CJG4 


UPDl 


CMG5 


RED? 


CKB2 


UP03 


CMG4 


RED9 


CJF2 


UPD6 


CHC4 


RGTPO 


BNA3 


UPD7 


CME4 


RGTl 


BN03 


WEF4+1 


CNB2 


RGT2 


BNE4 


WEF7 


CNE3 


RGT4 


BNG3 


WEF8 


CNF5 


RGT5 


BNK3 


XTRAP 


ABH3 


RGT7 


BNF5 


XTRAP 


CCE2 


RGT8 


8NG4 


X2 


CGD5 


RNXPO 


BTJ4 
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T'l-.jg i-oVkjo lists all tli6 off-^affs entry connectors that 
are referenced by any off-page exit connector on an- 
other chart. The entry connector is listed on the left, 
and all references to this connector appear to the right 
(and on subsequent lines if necessary). 



ENTRY 
BAE2 
BBA2 
BCAl 



BCD2 



FROM 

80H4 

BAJ5 

BB02 

8EF2 

BEG3 

BEH4 

BFF2 

BFK2 

BFK4 

BHD4 

BHH4 

aHK4 

BJ02 

BJF2 

BJG2 

BJH2 

BJH3 

BJJ2 

BJK2 

BKH4 

BLJ4 

BLK4 

BMC5 

BHD5 

BME5 

BMJ5 

BTC4 

BUAl 

BUBl 

BUBS 

BUCl 

BUC5 

BUD4 

BUEl 

BUF4 

BUG3 

BVDl 

BBH3 



ENTRY 


FROM 


B0A2 


BTHl 


BEA2 


BJE4 


BGB2 


BNBl 
BTF2 
BUJ4 


BG84 


BNG2 


BJA2 


BU83 


BJA4 


BKJ2 


BJB4 


BFA2 
BFA4 
BFC4 
BFD2 


BJC4 


BHC4 
8K82 
BKD2 
BHC2 
BME4 
BMG4 


BJ03 


BNJ2 
BVHl 


BPD2 


BGD4 
BRA2 


BPJ4 


BRB5 


BRA2 


BGJ5 
BPAl 
8TC2 


BUAl 


BBJ2 
BTJ3 



ENTRY 
BVCl 

BVGl 



FROM 
BGF4 

BC02 



CBB3 


CAH3 


C-BG4 


CAB3 




CAF3 




CAF5 




CAG5 




CAH5 


CCD2 


CWJ3 


CCE2 


CGF5 


CDA2 


CCG3 


CDA4 


CPC2 




CPJ5 


CEA2 


CCD4 


CEA4 


CCG4 


CEB4 


CDF4 




CHF3 


CEG2 


CHE2 


CEH2 


CHB2 




CHC2 


CEJ3 


CHC4 




CH05 




CHE4 




CHG4 




CHH4 




CJA2 




CPF3 


CEJ4 


CCB3 




CDC4 


CFA3 


CEJ3 


CFA4 


CEJ4 




CGF2 



fNTRY 


FROM 


CFB4 


CGD2 


CGA2 


CFH2 


CGa5 


CFC4 




CFF4 




CFG4 




CJH4 


CHA2 


CEB2 


CHF2 


CED3 


CJA3 


CCE4 


CMA3 


CNH2 


CNA2 


CMH2 


CPA2 


CDH2 


CPB3 


CRB2 




CRB3 


CPC3 


CRC2 




CRC3 




CRE2 


CPC5 


CRD2 


CPE3 


CRD5 


CRA2 


CPJl 


CRA3 


CPHl 


CRA5 


CCC2 


CUF2 


CCH2 


CWA2 


CCB2 


CWJ5 


CGG5 
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Table C — Subroutine Usage 

This table lists the subroutine names as they appear in 
each subroutine block on the individual charts. The 
subroutine name and the block location where it may 
be found appears on the first hne. To the right of this 
and on subsequent lines is a list of all chart and block 
locations where this subroutine is used. 



SUBROUTINE 


CONN 


BLOCK 


(ACTIV 


CAA2 


BNE2 


(DECVA 




BUGl 


(DECVD 




BRE4 


(NDATA 


CLAl 


BWD2 


(PAUSE 


CTA2 


BTGl 


(PROUT 


CWBl 


BUHl 


ACTV 


CAA2 


BCH2 
BNJ3 


Acrv+1 


CAB2 


CLG3 
CLH2 


BCDHC 




CWF2 


BCD5 




CUF2 


BCVDEC 




BTH4 
CKG3 


BCVDEC-l 




BTG4 
CKD3 


CALIBl 


BPA2 


BDH2 


CALPOW 


BSAl 


8RD1 
BRE3 
BRE5 
BRFl 


CAL5Y 


BSA4 


BRCl 


CAL6Y 


BSA5 


BREl 


CAL7Y 


BSD5 


BRE2 


CAL8Y 


BSA3 


BRF5 



SUBROUTINE CONN BLOCK 

CVPRT CWA^ CJG2 
CKJ3 
CLG5 
CNG5 

CVAl CDG2 
CRA5 

CVA3 BRF4 

BVA3 BAH4 
B0B2 
BFB2 
BFB4 

BVA2 BGG2 

BWA2 BAGS 
BCEl 
BDE2 
BGC3 
BGE2 
BKF4 
BKH4 
BME3 
BNB3 

CSB2 CBE4 
CDB4 
CFE4 
CPF3 



DATNS 

FDAMT 
IBVAL 

I FIND 
INITUS 



ISSKl 



NDSEL 



CSA2 CBE3 
CRF3 



CWBl 



CLAl 



CCA5 
CUJ2 

BHF4 
BHK4 
BNC4 



SUBROUTINE 


CONN 


BLOCK 
BNF3 


SUBROUTINE 


CONN 


BLOCK 






BUE3 


RDUN 


CKA5 


CAG5 






BUG4 






CFG4 


NDS3 


CMB2 


CLG4 


RED 10 


CKA3 


CEF3 
CEH4 


NRTST 


CKA4 


CEE2 
CHD2 






CHD3 
CJA2 
CJE4 


PAUSE 


CTA2 


BCF3 
BJG2 






CNC4 






BJG3 


RED50 


CKA2 


CHF2 






BUB2 






CJC3 






BUG3 












CSGS 


RGTPO 


BNA3 


BNB2 
BVJ2 


PAWS 


CTB2 


BEH4 












CCB5 


RHBCD 




BEAl 






C0G3 














RSYUR 


BYAl 


BAE5 


PROUT 


CWBl 


BBH4 
BCE3 
BEC2 
BEH3 
BJA2 






BFF5 
BFJ2 

BMH2 
BMH5 






BJBl 


SAVE 


CCA2 


CWKl 






BJF3 












BJGl 


SPRT 


CWA4 


CHB3 






BJJl 






CWC2 






BLAl 












BLB2 


STOP 


CTA4 


BBJ4 






BLB3 






BJB2 






BLD2 






CJH2 






BLD4 






CLH5 






BLE3 






CNH5 






BLG3 






CUK2 






BLK2 












BLK4 


SYSIDR 




BEG3 






BFFl 












BTJ3 


SYUCU 


BXAl 


BFA2 






BUB3 






BFA4 






BUC2 












BUF3 


SYUNCV 




BLB4 






BUH4 






BLKl 






BWC3 






8TF4 






BWC4 






CWB5 






CDC3 












CPH5 


TEST 




A8A3 






CSH3 






ABC3 






CIB4 




CUA2 


CAA2 






CrE2 






CLAl 






CTG2 












CWD5 
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Appendix H — Sample Autochart Symbois 



►••»•»«»«••»•••»«»»»•»•••»»»•* 



»•»»»•»»»«»•♦••«»•••••»»»•»»•»•»••»•»•»••••»••»»•*•••••••»»»•• 



:tqr symbols 



»»»»»8 I »••••••**» 



JREPRESENTATIVE SAMPLES SHOWN,) 

X AT END OF LINE SHOWS DIRECTION OF FLOW 
POINT AT END OF OFF-PAGE ENTRY 

CONNECTOR ALSO SHOWS FLOW DIRECTION 



» « * 

*■ * * 



» « 
• C* • 

» * 



« • 



• •••»DI •»»••*••» 



•«EX******^ 



*>>F1*»**< 



« » 



»«*«*«»1l«»« 



ON-PAGE 

ENTRY 

CONNECTORS 



ON-PAGE 

EXIT 

CONNECTORS 



OFF-PAGE 

ENTRY 

CONNECTORS 



.-x» 








••• •« 




• * 








* 4 




• 








* • 




»•»» 


" 


" 




** 




• « 












» c* • 












« « 












»»»« 




« 


04 » 

» 






• ••* 








* 




« 


« 






* 




. 




« 


* 






X 






tt « 






• ••• 






» 






« « 






. 






• C4 * 






^ 






• * 






X 






»»»» 






• *»« 
« » 
» C4 » 

« * 




X.... 








• »•»•' 












•F4 • 












« « 












» « 












• 












• X 


»••• 



CONNECTORS 

BOTH EXIT TO 

BLOCK C4 

ON THIS 

CHART 



LINE JUNCTION 
CROSSING LINE 



l»«»t«>*«« »«•»««« 



•F* • 

• * 



AN OFF-PAGE ENTRY CONNECTOR* 

MAY ALSO BE REFERRED TO • 

BY AN ON-PAGE CONNECTOR • 

ON THIS CHART • 



» • 



>*«*«*»»*»«»*-<»«« 



OFF-PAGE 
EXIT 

CONNECTORS 



•ZB • 
• Al» 



ZB A2 

ZC A3 



ZB Ai 



»*•«»*«»»»«**•*>«*« 



>••••••*<•*••»•••••••«•••»•«••«•*•»•••«•••••••>•••«••••*•«•••»«'»•**•*•••»•••>»•••••••••••*•••••••• 
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EVALUATION SHEET 



IBM 7090/7094 IBSYS /lOEX 

PROGRAMMING SYSTEMS ANALYSIS GUIDE, FORM C28-6299 



FROM 



LOCATION 



FOLD 



I. HOW CAN THIS MANUAL BE IMPROVED TO BETTER SERVE 
YOUR NEEDS? 



2. LIST ERRORS AND DELETIONS (GIVE PAGE NUMBER) 



NO POSTAGE NECESSARY IF MAILED IN U.S.A. 

FOLD ON TWO LINES, STAPLE, AND MAIL 
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POUGHKEEPSIE, N.Y. 
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P.O. BOX 390 
POUGHKEEPSIE, N.Y. 
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FOLD 
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20 
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C28-6299 
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